Top 10k strings from Utility Compilation 05 (19xx)(-).trd in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Utilities & Educational - [TRD] (TOSEC-v2007-01-01) /
Back to the directory listing
62
26
22
20
14
12
11
11
10 ..........
10 ********************************
9 LIWIA PISANIE 50 ZNAK
9 POD;ADRES 62208 I URUCHOMI
8 d$="ENTER":
8 ;" ":
8 FUNKCJI AT i TAB
8 ------------------
7 W W;WIERSZU.ABY UZYSKA
7 #9.......;MO
7 TEN EFEKT;NALE
6 PROCEDURA TA JEST UMIESZCZONA;POD ADRESEM 43746 ABY J
6 ;" ";
6 $Z SINGLE-STEP-
6 ! !
6
6
6
5 d$="navmite miga^&u^ klawi@u":
5 "ON5KN8509"
5 .
5 ---------------
5 -*-
4 y,x;"!""#";
4 d$=f$(j,i)
4 d$="pon`l":
4 d$="ostanowite lentu":
4 d$="navmite =Y=,ytobx porabotat# e&e":
4 d$="konec":
4 d$="=klawiatura=":
4 ^-+= :`?/*,. "
4 Press any key
4 ENIA EKRANU (ADR);
4 ;W EKRAN. EKRAN W
4 ;" Press any key "
4 ;" ";
4 ;" ":
4 ;" ":
4 0000000000000000000000000000000000000000000000000000000000000000
4 --------------------------------
4 ,"10 DAYS","+/-12 HOURS",7
4 +"zxcvbnm "
4 )="1234567890qwertyuiopasdfghjkl"+
4 )="!@#$%&'()_
4 (ALT*P0))*(
4 POD ADRES (ADR);
4 1983 Hodgson and Threlfall"
4 ----------------------------
4 (DELCL X Y)
4 ---------------------
4 --------------------
4 -------------------
4 -----------------
4 --------------
4
4
3 xxxxxxxxxxxxxxxxxxxxxx
3 d$="o@ibka!":
3 d$="TEsT":
3 d$="PSION + G. 1986":
3 d$=" wkl^yite magnitofon ":
3 b$="2222224":
3 LQ-.0130125
3 Distances & bearings
3 AL3=AL3+12
3 AD ZASTOSOWANIA:;
3 ;o$;o$;o$;o$;o$;
3 ;"subject to":
3 ;"poprobujte e&e raz":
3 ;"optimal solution:":
3 ;"Press any key":
3 ;"FOR START PRESS ";
3 ;"FOR MENU PRINTOUT PRESS ";
3 ;"15 SEP.-30 NOV."
3 ;"00000000000000000000000000000000";
3 ;" ";
3 32768,6912
3 32256,8220
3 23675+256*
3 -------------------------------
3 ,x;"!""#$";
3 ,j)=-a(m+1
3 ,"6 DAYS","+/-12 HOURS",7
3 ,"30 DAYS","+/-12 HOURS",8
3 ,"30 DAYS","+/-12 HOURS",7
3 *WSUN*P1/180
3 (WT*P1/180
3 (WSUNT*P1/180
3 (MSUN*P1/180
3 (L5*P0))+(
3 (L5*P0))*(
3 (DIF*P0)))
3 (-DZ1*DZ1+1
3 '''"
3 "42)TAURIDS S";
3 CTAPTA HA
3 -----------------------------
3 PRINTER
3 * *
3 (NOT LST X)
3 (Goto-P X x y))
3 -------------------------
3 ------------------------
3 ----------------------
3 PING
3
3
3
2 z$=a$(i,j,10
2 y$="22222222":
2 y$="222211114":
2 xwvmkZYXWVTNK7%
2 x,y;a$(a1,a2):
2 ti=ti+(ti<499
2 t$=" "+t$:
2 rm=a(i,l+1
2 p$="78788777777677457487777675779787"
2 o$=" "
2 n$="Verify":
2 n$="Load":
2 m(i)=a(m+1
2 inexisting instruction
2 d$="wx navali:":
2 d$="wx navali ":
2 d$="nado bxlo:":
2 d$="dl` prodolveni` navmite ":
2 d$="dl` ostanowki navat# =STOP=":
2 d$="a nado bxlo ":
2 d$="CAPS/SYMBOL SHIFT":
2 d$="CAPS SHIFT-"+
2 b$=a$(i,j,
2 a$(a1,a2,9
2 Z8=(X5*C8*C9)+(Y5*S8*C9)+(Z5*S9)
2 Y=(X1*S7)+(Y1*C7)
2 Y8=(Y5*C8)-(X5*S8)
2 Y0=A0*E1*S3
2 X=(X1*C7)-(Y1*S7)
2 X8=-(X5*C8*S9)-(Y5*S8*S9)+(Z5*C9)
2 X0=A0*(C3-E0)
2 WA5=W5+180
2 W=W0+(T-T0)*K2*(2.5
2 W0=327.5222
2 W W;WIERSZUO
2 W !
2 TT2=TT2+12
2 TOTPTS=TOTPTS+PTS
2 TOTKM=TOTKM+KM:
2 TA JEST UMIESZCZONA;POD ADRESEM 43746 ABY J
2 T=(JD-2415020
2 T1=6.6460656
2 T1=(DE+29218.5
2 T)+DM+1720994.5
2 Searching for
2 SPECTRUM COMPILER
2 SOURCE"SCAN29/1","MORSE31/12","TTYTX21/2"
2 SLA,SLO;"*"
2 RAZ=PAZ-30
2 RASUN=RASUN+180
2 R0=6378.16
2 R+445267.1142
2 R$,N$,S$,D$,A$,W$:
2 PTW=PTW-24
2 PAZ=(A9-LHS)/4.5
2 P1=3.14159265
2 O0=193.8653
2 M=358.47583
2 M0=37.1006
2 LRGIPCVEZDBSYFXAWJ^UQK^*5 9 #,.
2 LONG=LONG+(1
2 LOAD/VERIFY
2 LO3=(LO2+LO1)/2
2 LA3=(LA2+LA1)/2
2 L=279.69668
2 KM;KM;" ";"***"
2 KATOP HACTPO
2 JD=C+E+D+1720994.5
2 HM=HI+(128
2 HK=(HJ-128
2 G1=1.0027379093
2 G0=7.5369793E13
2 G+22518.7541
2 EP=(23.452294
2 EMY USTALI
2 E=.01675104
2 E0=.0011672
2 DN=DN+DM+30
2 D$="NEW SUPERCODE":
2 D 12345 F -+ P X BORDER TUNE >
2 CI;EKRANU W OKRE
2 CE NIE WSCHODZI I NIE ZACHODZI TEGO DNIA. JEST POD HORYZONTEM.":
2 CE NIE WSCHODZI I NIE ZACHODZI TEGO DNIA. JEST NAD HORYZONTEM.":
2 AL3=AL3+24
2 A9;" EL ";
2 A0=((G0/(N0^2
2 >-1934.142
2 ;b$(n);c$(n);
2 ;SINGLE-STEP-
2 ;J$(II);J$(II+1
2 ;G$;" Skytrack commences ";T$
2 ;G$;" ON ";DM;"/";MN;"/";YN
2 ;"earn to wead";
2 ;"and ";v;" incorrect"
2 ;"Za UPUTE upisi ZNAK 44":
2 ;"ZA NASTAVAK PRITISNI NEKU TIPKU":
2 ;"Yellow In";
2 ;"WELCOME RADIO-HAMS":
2 ;"Up ";T$:
2 ;"Sat in";
2 ;"Press any key to clear"
2 ;"PRIMAL:":
2 ;"One minute steps ";DM;"/";MN;"/";YN
2 ;"Name : ";n$
2 ;"MORSE KEYBOARD READY":
2 ;"MENU SELECTION"
2 ;"Incorrect : ";v
2 ;"GndRange"
2 ;"For continue press any key":
2 ;"EARN TO WEAD":
2 ;"Down ";T$:
2 ;"Date : ";m$
2 ;"Correct : ";u
2 ;"COMPILER NOW LOADING"
2 ;"COLOR";:
2 ;"BORDER";
2 ;"678 9:":
2 ;"31 AUG.- 2 NOV."
2 ;"30 OCT.-10 NOV."
2 ;"1=45 2=50 3=57 4=75 5=100":
2 ;"18 SEP.-23 OCT."
2 ;"18 AUG.-15 OCT."
2 ;"15 JUN.-31 JUL."
2 ;"13 JUL.-17 JUL."
2 ;"12 AUG.- 6 OCT."
2 ;"----------------"
2 ;" White Starlike"
2 ;" Red Out";
2 ;" Input new filename- ";
2 ;" 9 JUL.-15 JUL."
2 ;" 5 JUN.-17 JUL."
2 ;" 250HZ ";
2 ;" 1 JUL.- 3 JUL."
2 ;" NACI
2 ;" BACK TO THE MENU"
2 ;" "+(" "
2 ;" "
2 ;" ":
2 59'59""N,"'
2 48994,SZEROKO
2 48991,KOLUMNA POCZ.;
2 48983,WYSOKO
2 48982,WIERSZ POCZ.;
2 333*((R0/A0)^3.5
2 33+65928.7155
2 32256,8260
2 30000,10000
2 25088,5640
2 23607,HA","1"
2 1234 678 0 C V S J Z X A B M 9
2 1 5 10 15 20 25 KBUFD 12345 NR UL ABC TRXP K M ! * *@
2 1 5 10 15 20 25 KBUFD 12345 NR UL ABC TR
2 0000000000000000000000
2 000000000000000000
2 000000000000
2 ................................
2 -GTO)/1.00274
2 -B5*B5))))*57.3
2 ,x;"+,----./";
2 ,x;"+, *":
2 ,x;"%&";"'(";
2 ,"8 DAYS","+/-12 HOURS",6
2 ,"4 DAYS","+/-12 HOURS",7
2 ,"4 DAYS","+/-10 HOURS",5
2 ,"20 DAYS","+/-12 HOURS",9
2 +T1*2.581E-5
2 +T1*(2400.051262
2 +45037.5082
2 +36000.76892
2 +35999.04975
2 +32964.3577
2 +100.0021359
2 +"QWERTYUIOPASDFGHJKL ZXCVBNM"+
2 *MU*P1/180
2 *MSUN*P1/180
2 *M)+.000293
2 *L8))+H9/1000
2 *DZ3/P1/6378
2 *1.002737908
2 *(C1*C1)-.5
2 *(1.0000002
2 * *
2 )=-(S2*S0)+(C2*C0*C1)
2 )=-(S2*C0)-(C2*S0*C1)
2 )=(C2*S0)+(S2*C0*C1)
2 )=(C2*C0)-(S2*S0*C1)
2 )="j"))+(4
2 )="1234567890QWERTYUIOPASDFGHJKL ZXCVBNM "
2 );J$(II+13
2 );J$(II+11
2 );" ";J$(II+10
2 );" ";J$(II+12
2 )4&80:=3+$?'6!/-2"^71(^>
2 )/a(i,pc):
2 )+(.020094
2 ))+DM+1720994.5
2 (Y8/X8))/P0
2 (Y/X))*57.3
2 (X5*X5+Y5*Y5+Z5*Z5)
2 (SL2))*180
2 (SL13))*180
2 (S5/C5))/P0
2 (LA3*P0))*(
2 (L9*P1/180
2 (L5*P1/180
2 (L5*P0))/(
2 (23.441232
2 ((vartrans X (Y (/* vars|Z)|x))
2 ((sub X Y X)
2 ((Rev-list (X|Y) Z x)
2 ((Q-K)*256
2 ((P-code X " "))
2 ((P-code 22 "Illegal colour"))
2 ((ON X (Y|Z) x)
2 ((EdP X Y Z x)
2 ((EdC X Y Z)
2 ((D-C (X|Y) (X) Y))
2 ((D-C () () ()))
2 ((COPYRIGHT 1983 LPA LTD (V 7 -19)))
2 (("?ERROR?" X Y)
2 (("?ERROR?" 2 (X|Y))
2 (#"/.)*+,-
2 #9.....ALE
2 "value of obj.func.=";:
2 "disassemb."
2 "Name too long!!":
2 "Must have a name!!":
2 "MONTH ";MN
2 "MCODER48"
2 "ENTER WANTED DAY NUMBER"
2 "ENTER MONTH NUMBER"
2 "DAY NUMBER ";DM
2 "BR. SAT ZNAK RPRT MNOZ. ":
2 "43)TAURIDS";
2 "41)ORIONIDS";
2 "39)PISCIDS S";
2 "38)PISCIDS N";
2 "32291",240
2 "23785"+N,
2 "17)A.BETA PERSIDS";
2 "16)THETA AURIGIDS";
2 "15)BETA PERSEIDS";
2 "+(";x;")x";j;
2 "(";x;")x1";
2 " standard SINCLAIR practice of ";
2 " Compiler error messages follow"
2 " program use RAND USR 40000."
2 " To run a correctly compiled"
2 " The compiler is invoked by"
2 " Your BASIC is compiled to"
2 " SPECTRUM INTEGER COMPILER"
2 " Errors when the program is"
2 " running are given in the"
2 " locations 40000 upwards."
2 " SPECTRUM users manual."
2 " RAND USR 60000."
2 "
2 SAVE *"M";1;"MONS4" CODE NNNN,
2 PRESS KEY
2 PLEASE KEY IN YOUR NAME
2 PLAY TAPE >
2 Last: 9E (ENTER)
2 KOD POD WYBRANY;ADRES (ADR') ADR=ADR'-256;
2 FINISHED >
2 EGRANU","0"
2 CERTIFICATE
2 ADRES POCZ
2 A.Cowley July 1982
2 4 3 2 1 0
2 1983 THRELFALL and HODGSON Compiled OK Program Length = bytes To run enter RAND USR "
2 etianmsurwdkgohvf l pjbxcyzq 54 3 2
2 SPECTRUM
2 ****************************
2 ***************************
2 * *
2 (SUM 1 x Y)
2 (Rev-list Y (X|Z) x))
2 (NOT VAR Y)
2 (NOT SYS X
2 (DELCL X Y))
2 (CL ((data-rel X)))
2 (ADDCL y Y)
2 $K
2 "Spark v2.0" 1990 IskraSOFT
2 OUT (254),A
2 RANDOMIZE USR 49152 (ENTER)
2 16=/ ( 7 8 90
2 -----------------------
2 "TSW>Sp" 1990 IskraSOFT
2 ZX COMPILER V2.0
2 1 1 1 1
2 ? " . ' - ; ) , :
2 "-------------------------"
2 "---------------------"
2 (
2 ADD HL,DE
2 ----------
2 ---------
2 --------
2 ------
2 PING (CALL)
2 (
2
2
2
2
2
1 ~KOLOR ~:;
1 }plwszsl C
1 }gal CX
1 |||}}}}}}}}
1 |*TJC*TJC*TJC
1 |*TJ*TJ*TJ
1 {333,"2 DAYS","+/- 12 HOURS",4
1 zanqtobajt: ,swobodno :
1 zU2a|*T-164E-8
1 zU2a|*T-1.64E-6
1 zU2a|*T-.00000164
1 z=z+a(i,j):
1 z$=a$(a1,a2,10
1 z$="under":
1 z$="outside":
1 z$="inside":
1 z$="front"
1 z$="bottom":
1 z$="behind"
1 z$(n)=z$(b)
1 you want to store.>
1 y,x;ct;" ":
1 y,x;"TUV";
1 y,x;"JKL";
1 y,x;"678";
1 y,x;"/...-";
1 y,x;" 89";
1 y,x;" 4 ";
1 y,x;" !""#";
1 y,x;" ";
1 y$=y$+y$+y$+y$:
1 y$="3312221":
1 y$="3122222":
1 y$="2422224":
1 y$="2222224":
1 y$="222222112":
1 y$="213334":
1 y$="21211114":
1 y$="2112112222":
1 y$="1221122":
1 y$="121111214":
1 y$="112222224":
1 y$="111211113":
1 xUUUUUUUUUUUUUUUUUUUUUU
1 x,z;"HOMEP KACCET
1 x$=x$+d$(max,j):
1 x$="eggfishcakeapplejellybanana":
1 x$="NICE TO SEE YOU":
1 x$="9999999259":
1 x$="7<<;9;<77":
1 x$="7975457":
1 x$="7797<;":
1 x$="7747974":
1 x$="5059<05":
1 x$="45777<;;<":
1 x$="0557955":
1 x$="050579:97":
1 x$="04254740":
1 x$="024577997":
1 x$="020442425":
1 x$="00779;<97":
1 x$="0044774":
1 x$="0024047":
1 x$="00054740":
1 x$=" "+x$:
1 wybor polej ispolxzuq kur-sornye kl#@i,wyberite na@alo ka-vdogo polq i navmite <ENTER>. dlq zawer%eniq navmite <STOP>.
1 wy ostawlqete aktiwnoj wybrannu#stroku ?
1 wipe lower window
1 wid2=wid-1
1 wSUNRISE#B
1 wKL@^ITX SLOWO
1 wKL@^ITX MAG
1 w+w+w+<w+w
1 w*T/W+.11184
1 w$w$w$w%%%,
1 w$=o$+":"+b$
1 v$=v$(r)+v$:
1 unpack=450
1 uSSTV mc C
1 uSPACEMANB
1 u()=(65536
1 turn=turn+1
1 tot=tot+ti
1 to have your heart in your mouth
1 to be very frightened to keep going to experience suffering i
1 tfff*(m(n)-1
1 tekstowyj redaktor
1 tab;"t - get tune"
1 tab;"e - edit page"
1 tab;"Z - load zx code"
1 tab;"S - save code 16K"
1 tab;"P - previous page"
1 tab;"N - next page"
1 tab;"L - load rz code"
1 tab;"A - automode"
1 t333)/J1):
1 t(turn)=n:
1 t$="namesk m spel card ":
1 t$="ON UNDER TOP BOTTOM BEHQND FRONT QNSQDE OUTSQDE"
1 sort driver
1 snum=snum+1
1 showpic=7500
1 shell sort
1 secread C`
1 s=z+m(m)+t
1 s$="on under top bottom behqnd front qnsqde outsqde"
1 s$="on under top bottom behind front inside outside"
1 s$(i),e(i),d$(i),a$(i),m(i),d(i)
1 s#r#q#p#"#
1 rr;"1"+("22"
1 revim-poisk "STOP"-dlq wyhoda.navmi "ENTER" dlq drugoj zapisi.wwedite poiskowu# stroku
1 reader <C>
1 r(n+w+i);" ";
1 r$=d$(x2):
1 r$=c$+t$+m$:
1 r$="NAMESK M SPEL CARD ":
1 qwertasdfg
1 q$=i$+":"+b$:
1 q$(i);e(i):
1 q!Gv"{h?K`
1 press=9260
1 pp=a(pr,pc):
1 porqdokpolq:
1 pE^ATX KOPII
1 pE^(g)/pW(t)/(j)?
1 pEREM(k)/pE^(z)/w(j)?
1 p$="KACCETA HOMEP..."
1 p$="KACCETA HOMEP":
1 p$="HOMEP KACCET
1 oSSTV B
1 o=k-(M1*65536
1 o=(n+(r*32
1 o/W+559.976
1 o$=o$+":*"
1 o$="hencatdogratfoxpig":
1 o$=" ":
1 navmite "SPACE" pri oformleniiblanka dlq belogo cweta _krana
1 navmi Y - da, N - net.
1 navmi <ENTER> dlq wybora stroki w l#bom pole ili ispolxzujte l#-boj kl#@ dlq pereme&eniq kursoraw velaemoe pole i navmi "ENTER"
1 navmi "E" dlq nowogo banka
1 namesk m spel card N
1 najti! nOW? y
1 nC5 B1^
1 n*T/W+.04675
1 n(n)=n(n-B)
1 n$;" OK"'"HIT ANY KEY TO CONTINUE."
1 modules-mod(wrap save-mods unwrap)(Module)
1 meteor shower peak prediction
1 memscaneBK
1 mco2 CV
1 manuscript ?(Y/N)";A$:
1 m2=(.985609
1 m(n)=m(n)+1
1 m(n);"/";y-1900
1 m(i)=-m(i)
1 m(i)=-a(m+1
1 m(i)=-(a(m+1
1 m$=x$+"mathatjugmugdishrakecoatmouse":
1 m$="jugmughatmatcarvanbuseggbikeboatshipfishdishrakecakecoatlorryjellyapplemousehousebanana":
1 m$="#eg the hen`ip the cat_en the dog^eb the rat[am the fox\he fat pig"
1 m$;" (";g(m+1
1 m$;" (";a(m+1
1 lvaebcmhfdrjU
1 lookbas CP
1 lat=>rus(a=7;GO SUB 130);DELET-jump(a=12;GO SUB 150);cursor up-big(a=11;GO TO 70),cursor down-little(a=10;GO TO 50);STOP-STOP(a=226);^-sdwig(a=64;GO SUB 500)
1 lENTA 0
1 lA5 C$
1 l482 CV
1 l$="23344522223334":
1 komandy banka ENTER ALTER INFORMFORWARD BACK RESET ORDER SELECTQUIT LIST PRINT COPY DELETE
1 katalog
1 kalxkulqt.
1 kURSOR W
1 k=57.29577951308
1 k=((M+(H*60
1 k(j)=r(j)-r(n+uu)
1 k(j)=-k(j)
1 k$="4567":
1 k$="0123":
1 jugmughatmatcarvanbuseggbikeboatshipfishdishrakecakecoatlorryjellyapplemousehousebanana
1 je C
1 j=p,"10 HOURS","+/-15 MINS",1
1 j;". ";p$(i)
1 j1,k;s$(j2
1 j*T*T*T/W:
1 j$="1110000000000101000111":
1 j$=" message 10. gl es 73 de ua1auw sk"
1 it-in-C (X (Y) Z) e (X (x) Z))
1 is not seen if station lat >50
1 int off screen"))
1 input=1000
1 input a string
1 infringe the rights of any
1 inexisting instruction"
1 in;"D"+("EE"
1 il-a,z;" ";
1 il,ic;(p$);": ";#a;
1 il+a,z;"C TAK
1 ii=ln*(i2-1
1 i));i;" ";:
1 i$=i$+":*"
1 i$=" message 9"
1 i$(t(k))="-"
1 i$(r)="+":
1 i$(n)="+":
1 i$(i2)="+":
1 i$(i2)="+"
1 hs/W+662.673
1 hencatdogratfoxpig
1 hROST6 B
1 h$=h$(r)+h$:
1 h$="6=3;594<2:78":
1 h$=" message 8"
1 getnum=7300
1 gd C
1 gASiO!hSGkLrjIqnP*nC
1 g$="1cblue 4pgreen 6fyellow2bred 3spink 0sblack "
1 g$=" name hr is mike es qth is st.petersburg = running abt 50watts to a dipole antenna "
1 four banks of 21 UDGs.
1 for menu"''"Enter loc. of distant station:"'A$
1 for menu"''"Enter EUROPE (5-chr) or WORLD (6-chr) locators to be decoded:"''A$
1 for menu"''"Enter EUROPE (5-chr) or WORLD (6-chr) locator :"''A$
1 f$=f$(r)+f$:
1 f$="1fmat 2shat 3djug 4tcake 5mrake 6wfish ":
1 f$=" qrz qrz qrz? de ua1auw ua1auw ua1auw kkk"
1 f$=" ON , UNDER , TOP , BOTTOM , QN FRONT, BEHQND , QNSQDE , OUTSQDE ,"
1 exptran-mod(: Expression-Parse)(@ # + "-" ~ * % APPEND CONS func & and yes rel-form)
1 eggfishcakeapplejellybanana
1 eecccefddbgceahbf`iag_j`h^k_i]l^j\m]k[n\lZo[mYpZnXqYoWrXpVsWqUtVrTuUrPpRoSnTmUlVkWjXiYhZg[f\e]d^c_b`aabd`bae_c`f^d_g]e^h\f]i[g\jZ
1 editor-mod(EDIT)(vars t n s b f m c e o u v w k i a yes no)
1 eROST5 B~
1 e1=t+1.7192
1 e(rr))+".":
1 e(r))+" and a "+m$(d(rr)
1 e$=j$(b-s):
1 e$="ytobx nauyit#s` pol#zowat#s` klawiaturoj wx movete obratit#s` k posledu^&im programmam, kotorxe pomogut wam w qtom.":
1 e$="wx movete podkl^yit# drugie uww,kotorxe zdes# ne pokazanx,yerez raz'em na zadnej stenke (modem, printer,diskowod,monitor i t.p.)":
1 e$="samxm slovnxm (i de@ewxm) qlementom `wl`ets` mikroprocessor (ucp-ustrojstwo central#nogo proces-sora).tip ucp w ""SPECTRUM"" - Z80":
1 e$="qta programma daet ob&ie pon`ti`ob apparatnxh sredstwah mikroqwm dl` nayala rassmotrim,yto raspoloveno wnutri mikrokomp#^tera.":
1 e$="pzu hranit fiksirowannxe programmx i dannxe,pozwol`^&ie komp#^teru rabotat# srazu ve posle ego wkl^yeni` w set#.":
1 e$="processor sw`zan s uww yerez in-terfejs wwoda-wxwoda. qta mikro-shema sopr`gaet razliynxe ustrojstwa s komp#^terom.":
1 e$="obrabatxwaemxe dannxe hran`ts` wpam`ti: posto`nnom zapomina^&em ustrojstwe (pzu ili ROM) i operatiwnom (ozu ili RAM).":
1 e$="komp#^ter 'goworit' s wami yereztelewizor,a wx 'goworite' (wwodite informaci^) yerez klawiaturu.":
1 e$="kassetnxj magnitofon -ustrojstwowwoda-wxwoda. on wxwodit(zapis#)na lentu dl` hraneni` programmx i dannxe ili wwodit ih w qwm.":
1 e$="hotite porabotat# s qtoj programmoj e&e? esli da, to navmite klawi@u =Y= esli net,to navmite klawi@u =N=":
1 e$="1pentenden2canfatrat3logdotjog4matsatrag5boxfogfix6pinbigfig"+n$+o$:
1 e$=" message 5"
1 e$=" dl` normal#noj rabotx komp#^terdolven ob&at#s` s wne@nim mirom yerez periferijnxe ustrojstwa wwoda i wxwoda (uww).":
1 e$=" w ozu wx movete zapisat# l^bxedannxe i syitat# ih obratno (qtaprogramma - w ozu).s wxkl^yeniempitani` dannxe w ozu stira^ts`.":
1 e$=" telewizor i dinamik `wl`^ts` ustrojstwami wxwoda, s pomo&#^ kotorxh spektrum wxdaet informa-ci^ wam. sejyas igraet dinamik.":
1 e$=" on , under , top , bottom , qn front, behqnd , qnsqde , outsqde ,"
1 e
1 dlq udaleniq - <ENTER>
1 distance & bearing - lat/long &lat/long
1 delrec=620
1 delete an item
1 delete a cassette
1 delcass=680
1 d=d+k(j)*g(m+1
1 d0=(m2-m0)/(1
1 d(n)=d(n)-31
1 d(n)=d(n)-1
1 d(n)=d(n)+1
1 d(k)=e(k)-2
1 d(j)=e(j)-
1 d$=y$(ln2*k-2
1 d$=y$(k+r)+y$(3
1 d$=m$(d(k)
1 d$=m$(d(cz)
1 d$=d$+m$(d(r)
1 d$=a$(nn-34
1 d$=("\he "+m$+" is"
1 d$=("\he is so fat."
1 d$="zagruva^ 'POCT-3'":
1 d$="yast# 4":
1 d$="yast# 3":
1 d$="yast# 2":
1 d$="yast# 1":
1 d$="wwesti"+d$:
1 d$="wwesti i navat# =ENTER=":
1 d$="wwesti ":
1 d$="wwesti ":
1 d$="wkl^yite magnitofon":
1 d$="ustanowite kursor ":
1 d$="the house.":
1 d$="the gate.":
1 d$="swish"
1 d$="sodervanie":
1 d$="slow":
1 d$="sejyas":
1 d$="revimx":
1 d$="prower#te prawil#nost# revima":
1 d$="ostanowite magnitofon":
1 d$="o@ibka!":
1 d$="ne navimajte =BREAK!=":
1 d$="navmite =STOP= dl` okonyani`":
1 d$="navmite ":
1 d$="navat#:":
1 d$="navat# =StoP= dl` okonyani`":
1 d$="l^bu^ klawi@u dl` prodolveni`":
1 d$="l^bu^ klawi@u - dl` prodolveni`":
1 d$="kursor E":
1 d$="komandx":
1 d$="klawi@a =SYMBOL SHIFT=":
1 d$="izmenenie revima":
1 d$="i navmite l^bu^ klawi@u":
1 d$="dl` prodolveni`-navat# klawi@u
1 d$="dl` prodolveni` navat#":
1 d$="dl` prodolveni` navat# ":
1 d$="TECT":
1 d$="PSION +G. 1986":
1 d$="NEW-SUPERCODE":
1 d$="MAKE":
1 d$="ENTER"
1 d$="Cejyas":
1 d$="CURRENT":
1 d$="=apparatnxe sredstwa=":
1 d$="- l^bu^ klawi@u dl` prodolveni`":
1 d$=" the chair.":
1 d$=" of the ladder. ":
1 d$=" in front of ":
1 d$=" cq cq cq de ua1auw ua1auw ua1auw cq cq cq de ua1auw ua1auw ua1auw cq cq cq de ua1auw ua1auw ua1auw k"
1 d$=" - l^bu^ klawi@u dl` prodolveni`":
1 d$=" "+z$+" ":
1 d$=" wkl^yite magnitofon ":
1 d$=" zagruva^ yast# 3 ":
1 d$=" zagruva^ yast# 2 ":
1 d$=" zagruva^ slowar# ":
1 d$=" ":
1 d$=" zagruva^ yast# 4 ":
1 d$(y2)=r$:
1 d$(x2)=d$(y2):
1 d$(i)=d$(i+p)
1 d$(i)=d$(i+a):
1 ctl2 BC
1 ctl1 C8
1 clear=9190
1 change=570
1 ch;"to continue":
1 cc C
1 c0=.016717
1 c*vx"`r>82
1 c$=c$(rr+1
1 c$="KLCEG":
1 c$="@DGLPSX"
1 c$=" message 3"
1 c$(i)="1":
1 by Roy Eastwood
1 breakpoint 7FB0).
1 bogdanow 1987
1 bignum=7320
1 between locator & locator
1 between lat/long & locator
1 between lat/long & lat/long
1 b$=a$(a1,a2,
1 b$="3312223":
1 b$="3122224":
1 b$="22222222":
1 b$="222222113":
1 b$="222211114":
1 b$="213334":
1 b$="21211114":
1 b$="2112112222":
1 b$="1221124":
1 b$="1211114":
1 b$="121111214":
1 b$="112222224":
1 b$="111211114":
1 b$="111122224":
1 b$=" message 2. dont forget to leave one space at the beginning of the message. A"
1 b$=" marks"
1 b$=" done"
1 b$=" again"
1 asic file "
1 aROST4 B
1 aNo Space left
1 a23830
1 a(pr,j)=a(pr,j)/pp:
1 a(i,n+w+i)=1
1 a(i,n+w+i)=-1
1 a(i,n+r)=-1
1 a(i,m+n+w+i)=1
1 a(i,j)=g(i,j)
1 a(i,j)=bb*a(pr,j)+a(i,j):
1 a(i,j)=-a(i,j)
1 a$="lvaebcmhfdrj":
1 a$="9999999259":
1 a$="7<<;9;<77":
1 a$="7975457":
1 a$="7797<;":
1 a$="7747974":
1 a$="5059<05":
1 a$="45777<;;<":
1 a$="0557955":
1 a$="050579:97":
1 a$="04254740":
1 a$="024577997":
1 a$="020442425":
1 a$="00779;<97":
1 a$="0077997":
1 a$="0044774":
1 a$="0024047":
1 a$="00054740":
1 a$=" well":
1 a$=" try":
1 a$=" top":
1 a$="
1 a$;" ...?":
1 a$(n)=a$(b)
1 a$(n)="33 "
1 a$(n)="22 "
1 a$(n)="11 "
1 a$(n)="00 "
1 a$(n)=" "
1 a"''"dlq wozwrata w bank.":
1 _b C
1 _________________
1 ^IRQFXGWM]YPJAU\LCN
1 ][_)('&!@#$%QWE<>~|\{}
1 ]ROST3 B"
1 \a C
1 \)+CGZ1-CGZ2)
1 \)+CGW1-CGW2)
1 \)*CGZ1/(24.07
1 \)*CGW1/(24.07
1 \!M}n{{jc/)/A!B`{{j}|gjnk
1 ZX SPECTRUM 48
1 ZA4=ZA4*P1/180
1 Z) t (X (x) Z))
1 Z$(S)=Z$(K)
1 Z$(S)=" "
1 You have room for up to
1 YRAWN.:eo sVATX :ed sFORMIR:ek
1 YJEMY TEN;PODPROGRAM TO EKRAN;UMIESZCZONY POD ADRESEM;(ADR) ZOSTANIE PRZENIESIONY;POD ADRES 16384;
1 YA=YN+1900
1 Y:;KURSOR (
1 Y1=(N(T)-B)*D:
1 X|x)|y) Y)
1 X=P+(T-C)*10
1 X=(256-XS*8*
1 X:dXGy2dX:DXOx2DXy2$X
1 X,Y W KODZIE;MASZYNOWYM.;
1 X = Y =
1 X W KODZIE;MASZYNOWYM;
1 With: 55 (ENTER) -
1 What is the meaning of life ?
1 WSUNT=WSUN+CSUN
1 WSUN=279.69668
1 WSUN=(WSUN/360
1 WS=279.69668
1 WS=(WS/360
1 WROST2 B
1 WELLINGTON
1 WCZAS;KURSOREM (
1 WAIT:CALL 8020
1 W5=W5-(W5>360
1 W0=51.4704
1 W0=346.2766
1 W0=26.1051
1 W.POLE:Ex pR.POLE:ex uST.TAB:ee cWETA :ei
1 W,ABY;WYWO
1 VU-bank
1 V=-(SR2-SR1)/30
1 V U - b a n k
1 Umons.dp C
1 UVfg*T/W+.0626
1 UUUUUx=UUUUV?
1 UUUUUUUUUUc
1 UUUUUUUUUUX
1 UUUUUUUUUUUUUUUUUUUUUU\
1 UUUUUUUUUUUUUUUUUUUUU
1 URS-LW:K5 kURS-PR:K8 kURS-WR:K7 kURS-WN:K6
1 ULTIMATE";
1 UG.GEOGR.=";DLG;"
1 UG.GEOGR.= ";DLG:
1 UDG and Screen$ File Organiser>
1 UDG CHARACTER ? !!
1 Text:A000 (ENTER)
1 Text File Name?
1 TZ1=TZ1-(TZ1>24
1 TPA ----":
1 TOTPTS;TOTPTS
1 TOTKM;TOTKM;
1 TOTKM;TOTKM
1 TOP .B TF .B SS .B ASS .B DIS .B DOCTOR .B s2 .B SIST .B KAT .B loader .B load .B lll .B LOAD .B LO .B 00 .B l00 .B boot .B BO
1 TO ADJUST THE TIMING OF THE MACHINE CODE TO SUIT YOUR OWN TVTHE
1 TLW2 CP
1 TLW+ BK
1 TKU ? T/N":
1 TKOWE","0"
1 TKOWA~;ZAWIERA POLSKIE LITERY;KOD-LITERA;58-
1 TJCS=(JDS-2415020
1 TJC=(JD-2415020
1 TJ=(JD-2415020
1 TIMING = <<<
1 THIS CALIBRATION HAS ONLY TO BE DONE THE ONCE. THE NEW VERSION OF THE MACHINE CODE CAN BE SAVEDTO AVOID HAVING TO RECALIBRATE EVERY TIME YOU USE THE PEN.
1 TEJ PRZEZ BASIC;NALE
1 TE=(JE-2415020
1 TE;KONTURY SIATK
1 TE.SIM:K0 sTE.STR:K9 sTE.KON:e9 sTE.WSE:eq
1 TE 'ENTER'"
1 TE 'ENTER'
1 TAPE - SAVE, LOAD or ABORT ?
1 T=T+(CSEW-1
1 T0=354.92080549
1 T0=352.76940972
1 T0=303.76940972
1 T0=280.85347222
1 T0=254.26247404
1 T$=" ":
1 T DO SPISU"
1 T
1 String Compiler>
1 Station lat long height metres asl.
1 Start of source =
1 Spectrum software authors.
1 Spark2.0Ch
1 Spark2.0Bf
1 Spark$ CA
1 Set pitch.
1 Select delay
1 Select Program to load
1 Screen$ Processor
1 Screen$ Compressor
1 Screen kept - PAGE 0
1 Samstag Sonntag Montag Dienstag Mittwoch DonnerstagFreitag
1 SZG=SZG+.00001
1 SZE INSTRUKCJE;d$=~napis~ y=PO
1 STO.;437500/f-30.125","1"
1 STAWKA:E{ tEKST<<:Sj >>tEKST:Su >tEKST<:er
1 STAT HEIGHT
1 SLAT=DXA*P1/180
1 SLAT=DC*P1/180
1 SLA=(L5-LA1)*3
1 SLA,SLO;"S";:
1 SLA,SLO;"S";
1 SLA,SLO;"S"
1 SLA,(SLO-1
1 SL3=SL3-20.46
1 SL3=SL2+DSL1
1 SL2=SL+(.00134
1 SL1=SL+DSL1
1 SL13=SL3+.985647
1 SINGLE-STEPPING (
1 SIDT=SIDT-24
1 SIDT=SIDT+(T-(
1 SIDT=.276919398
1 SIDT=(SIDT-(
1 SD=SD+(T-(
1 SD=.276919398
1 SAVE SCREEN - enter name "'f$:
1 S=DS+L+C+(134
1 S(N-Q)=S(N-Q)+B:
1 S(N-E)=S(N-E)+B:
1 S$="46882":
1 S Z H V N C
1 S FRANCISCO
1 S C R E E N M A C H I N E
1 Radius of circle is too big - re-position pen and try again...
1 RYRYRYRYRYRYRYRYRYRYRYRYRYRYRY
1 RTTY: ZX SPECTRUM WITHOUT HARDWARE
1 RRD RST SBC SCF SET SLA SRA SRL
1 RR1=-412178.4
1 RODKA","46968","40","PROGRAM PRZESUWA PO
1 RO=1.675104E-02
1 RNDT+Q,L+M-C:
1 RLC B RLC C RLC D RLC E RLC H RLC L RLC(HL) RLC A RRC B RRC C RRC D RRC E RRC H RRC L RRC(HL) RRC A RL B RL C RL D RL E RL H RL L RL(HL) RL A RR B RR C RR D RR E RR H RR L RR(HL) RR A SLA B SLA C SLA D SLA E SLA H SLA L SLA(HL) SLA A SRA B SRA C SRA D SRA E SRA H SRA L SRA(HL) SRA A SRL B SRL C SRL D SRL E SRL H SRL L SRL(HL) SRL A BIT 0,B BIT 0,C BIT 0,D BIT 0,E BIT 0,H BIT 0,L BIT 0,(HL)BIT 0,A BIT 1,B BIT 1,C BIT 1,D BIT 1,E BIT 1,H BIT 1,L BIT 1,(HL)BIT 1,A BIT 2,B BIT 2,C BIT 2,D BIT 2,E BIT 2,H BIT 2,L BIT 2,(HL)BIT 2,A BIT 3,B BIT 3,C BIT 3,D BIT 3,E BIT 3,H BIT 3,L BIT 3,(HL)BIT 3,A BIT 4,B BIT 4,C BIT 4,D BIT 4,E BIT 4,H BIT 4,L BI
1 RET RETI RETN RL RLA RLC RLCA
1 RET :
1 RESTORE SCREEN - select page No:
1 RESTORE SCREEN - none kept......
1 REGO WYKONANY;B
1 READ ERROR
1 RE=(149674000
1 RASUN=RASUN/15
1 RASUN=RASUN+360
1 RASUN=RASUN
1 RAMTOP = *e\
1 RA;ADRES POLO
1 RA OF NODE
1 R2=R+.00000543
1 R1LIST:e3 wN1LIST:e4 tABUL. :K1 wST.kup:S{
1 R%*T/W+.11148
1 Qrout.dp C
1 QUADRANTIDS
1 Q=N0*(T-T0)+Q0:
1 Q=N0*(T-T0)+Q0
1 Q
1 Printer?:Y
1 Press any other key to continue
1 Press any key to start.
1 Press a key to start sketching
1 Press a key to continue....
1 Press BREAK at any time to exit.
1 Point to colour and press a key.
1 Parts of speech are as follows:
1 PUT IN YOUR MESSAGE
1 PTZ=PTZ-24
1 PTZ=PTZ+DT
1 PTW=PTW-DT
1 PSION + G. 1986":
1 PROLOG DB_
1 PROFESSIONA
1 PRINTER, ADRES WOZWR
1 PRINTANJE SATA
1 PRINT l#boj kl#@ - ostanow.
1 POKAZIVANJE SATA
1 POINT THE PEN AT THE WHITE BOX. USE KEYS
1 PNIE NACISN
1 PLUS3 DISC SYSTEM.
1 P$="LONDON"
1 P A I N T P L U S
1 Out of symbol space !
1 Out of memory !
1 Ogens4.dpC
1 OWY;EKRANU DO
1 OWTOR :Ek sTER.BL:El pOISK :E~ rAZMER :ec
1 OUT (243),A
1 OUT (243),A
1 OTIR OUT OUTD OUTI POP PUSH RES
1 OPUS DISCOVERY DISC SYSTEMS
1 OP CKOPOCT
1 ONTUR :E} mARKER :Em rEGISTR:K2 {RIFT :em
1 ON5KN90 Bb
1 OM=(OM-360
1 O=O0-(T-T0)*K2*C1:
1 O=O0-(T-T0)*K2*C1
1 O0=73.8280
1 O0=316.1726
1 O0=141.6609
1 O","43515","27","PROGRAM DRUKUJE KO
1 Not enough room in memory.
1 Ncc/}fhg{|/}j|j}yjk
1 NUSUN=MSUN+CSUN:
1 NOP9 LD BC,9 LD(BC),A9 INC BC9 INC B9 DEC B9 LD B,9 RLCA9 EX AF,AF'9 ADD HL,BC9 LD A,(BC)9 DEC BC9 INC C9 DEC C9 LD C,9 RRCA9 DJNZ,9 LD DE,9 LD(DE),A9 INC DE9 INC D9 DEC D9 LD D,9 RLA9 JR 9 ADD HL,DE9 LD A,(DE)9 DEC DE9 INC E9 DEC E9 LD E,9 RRA9 JR NZ,9 LD HL,9 LD(#),HL9 INC HL9 INC H9 DEC H9 LD H,9 DAA9 JR Z,9 ADD HL,HL9 LD HL,(#)9 DEC HL9 INC L9 DEC L9 LD L,9 CPL9 JR NC,9 LD SP,9 LD(#),A9 INC SP9 INC(HL)9 DEC(HL)9 LD(HL),9 SCF9 JR C,9 ADD HL,SP9 LD A,(#)9 DEC SP9 INC A9 DEC A9 LD A,9 CCF9 LD B,B9 LD B,C9 LD B,D9 LD B,E9 LD B,H9 LD B,L9 LD B,(HL)9 LD B,A9 LD C,B9 LD C,C9 LD C,D9 LD C,E9 LD C,H9 LD C,L9 LD C,(HL)9 LD C,A9 LD D,B9 LD D,C9 LD D,D9 LD D,E9 LD D,H9 LD D,L9 LD D,(HL)9 LD D,A9 LD E,B9 LD E,C9 LD E,D9 LD E,E9 LD E,H9
1 NOP.
1 NO ROOM IN FILE
1 NIJ KLAWISZ ~A~":
1 NIJ DOWOLNY KLAWISZ":
1 NIJ DOWOLNY KLAWISZ"
1 NIENIE","0"
1 NIE MUSIMY NACISKA
1 NICE TO SEE YOU
1 NIA ZAMKNI
1 NAPISANY W KODZIE;MASZYNOWYM.;D
1 NAPISANA W;KODZIE MASZYNOWYM;
1 NAMESK M SPEL CARD T
1 N0=15.97849766
1 N0=15.81518188
1 N0=15.66840184
1 N0=15.41518188
1 N0=14.61901343
1 N(T)=N(T)-128
1 N$="#eg`ip_en^eb[ampig"
1 Mprint.dpC
1 Mp000000000000888880000000000000pp000000000000008000000000000000pGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG [
1 Monitor
1 M\C*N0%XW& H94:>D/
1 MU=358.47583
1 MU=(MU/360
1 MSUN=358.47583
1 MSUN=(MSUN/360
1 MON2 CP
1 MON2 BF
1 MODULES 01
1 MODE TEXT.
1 MODE SCALE INCREASE (I), DECREASE (D) OR EXIT (E).
1 MMMMMxxxxxx
1 MMMMMMMMMMMM
1 MEz_*T/W+.1084
1 METEOR Be3
1 MEHEM HET B KATA
1 MEAN MOTION
1 MEAN ANOMALY
1 ME GRAPH":
1 MCODER48CV
1 MCODER48Ba
1 MAIN: CP 13
1 M=(Q-K)*P2:
1 M=(Q-K)*P2
1 M:8000 (ENTER) -
1 M:7128 (ENTER) !
1 M:7115 (ENTER) a
1 M:7080 (ENTER)
1 M3=o-(M2*256
1 M2=-.95025
1 M1=E-E0*S3:
1 M1=E-E0*S3
1 M1=-.95025
1 M0=334.0856
1 M0=308.5153
1 M0=14.1415
1 M+(.020094
1 M(Q+B)=L+M
1 Lreader Cx
1 Locator encode
1 Locator decode
1 Locator conversion
1 Length =
1 Ldos.dp C
1 Last: 7C00
1 Last: 77FF (ENTER) -
1 LX9=52.625
1 LTS;"""N "
1 LTM;"'";"0"
1 LT=SD+(-W9/15
1 LT2-ARCOS*
1 LRGIPCVEZDBSYFXAWJ UQK 5 9 C,.
1 LR=WSUNT-180
1 LR=WSUNT+180
1 LPRINT, LLIST.
1 LOW-LT:K3 sLOW-PR:K4 pRED-PR:Sc iDTI-ST:Et
1 LOOP LD A,(23560) ;
1 LOOP IN A,(C) ;
1 LONYM OKNIE;W D
1 LONYM OKNIE;DO G
1 LONG=LGD+LGM/60
1 LONG=-LONG
1 LONG=(LG2-LG1)*
1 LOM>(WX9+180
1 LOM=LOM+(LOM<0
1 LOM=HSUN-(
1 LOM=HSUN+(HSUN<0
1 LOM=HSUN+(
1 LOM<(WX9-180
1 LOCATOR CONVERSION
1 LOCATE 1B3'3'(
1 LOAD FROM TAPE - enter name"'l$:
1 LOAD "GENS4-51" CODE NNNN
1 LOAD "" CODE NNN [ENTER]
1 LO3=LO3-(LO3
1 LO1>(W5+20
1 LO1<(W5+110
1 LKJHPOIUY0987612345QWERTASDFG
1 LIWIA TWORZENIE;NAPIS
1 LIST dlq stopa navmi l#boj kl#@
1 LINEAR PROGRAMMING
1 LI POD ADRES (ADR);WPISZEMY ~
1 LGM;"'";"0"
1 LETTERS - enter text"'l$:
1 LENGHT:DEFB 132
1 LDDR LDI LDIR NEG NOP OR OTDR
1 LD BC,9 F
1 LD HL,(23631)
1 LD DE,(MAIN) :
1 LD A,5 :
1 LD A,156 :
1 LD A,(LENGTH):
1 LD (HL),E
1 LD (COUNT),A :
1 LD (HL),D
1 LCST=SIDT+(-W9/15
1 LCST=LCST+24
1 LAT=LTD+LTM/60
1 LAM=LAM*P1/180
1 LABEL ....... LD HL,1
1 LA=(L9-LA1)*3
1 LA ZNAK;Z JAKIEGO B
1 L$=" AA00aZZ89jAA00aaRR99xx"
1 L$(J)>L$(J+22
1 L$(J)>L$(J+11
1 L$(J)<L$(J+6
1 L$(J)<L$(J+16
1 K`/F/c``d/cfdj/Kjj
1 KY=(E+B)/F:
1 KSZEJ CZCIONKI;DO PROGRAMU NALE
1 KODU MASZYNOWEGO
1 KM;KM;" ";"***"
1 KL.WYR:Eo pERENOS:Ec wYR.RAZ:e2 wKL@^-$:e{
1 K4","46946","21","SPECJALNY EFEKT DZWI
1 K : ";
1 JZjzBRbrxW_y@AHIPQXY`ahiCSs
1 JD=JD+ODST:
1 JD=B+C+E+D+1720994.5
1 JD<2299170.5
1 J:B000 (ENTER)
1 J5=36524.25
1 J3=2299160
1 J2=30.6001
1 J2)*.99999
1 J$=J$(r)+j$:
1 J$="SES SWW NWN NEE SES SWW NWN NEE ":
1 J$="N NEE SES SWW NWN NEE SES SWW NWN":
1 J$=" PROGRAM NIE DEMONSTRUJE SI
1 IskraSOFT
1 Instructions
1 Incorrect Number
1 Incorrect Address
1 IT CAN BE UP TILL 500KARAKTERS
1 INTERW. |KZEMP
1 INPUT subroutines for Locators.
1 IND INDR INI INIR JP JR LD LDD
1 INCLINATION
1 IN B,(C)9 OUT(C),B9 SBC HL,BC9 LD(#),BC9 NEG9 RETN9 IM 09 LD I,A9 IN C,(C)9 OUT(C),C9 ADC HL,BC9 LD BC,(#)9 RETI9 LD R,A9 IN D,(C)9 OUT(C),D9 SBC HL,DE9 LD(#),DE9 IM 19 LD A,I9 IN E,(C)9 OUT(C),E9 ADC HL,DE9 LD DE,(#)9 IM 29 LD A,R9 IN H,(C)9 OUT(C),H9 SBC HL,HL9 LD(#),HL9 RRD9 IN L,(C)9 OUT(C),L9 ADC HL,HL9 LD HL,(#)9 RLD9 IN F,(C)9 SBC HL,SP9 LD(#),SP9 IN A,(C)9 OUT(C),A9 ADC HL,SP9 LD SP,(#)9 LDI9 CPI9 INI9 OUTI9 LDD9 CPD9 IND9 OUTD9 LDIR9 CPIR9 INIR9 OTIR9 LDDR9 CPDR9 INDR9 OTDR9
1 IDIOMS B"
1 I0=98.2322
1 I0=97.9732
1 I0=56.9732
1 I0=51.6395
1 I0=27.2007
1 I.COMPILBg
1 I First:A000
1 How many do you need?>
1 HSUN=HSUN-(
1 HSUN=(LCST-RASUN)*15
1 HS=(LT-RS)*15
1 HS2=HS2+HS12
1 HS2/V3*J*T
1 HS1=HS1+HS11
1 HS12=3.6141
1 HS11=.82276
1 HL,(LOC+5).
1 HH=(HH-360
1 HD2=E2+L2:
1 H:41472 =A200
1 H$(I)=R$(1
1 Gpen
1 GTO=GTO-24
1 GTO=6.646066
1 GRAPHIC PEN -
1 GRAPHIC PEN -
1 GRAPHIC PEN
1 GM=109.862
1 GENS4.
1 GENS4-51
1 GENS 4
1 G:3E (ENTER) -
1 G7=(T-DE)*G1+SE:
1 G7=(T-DE)*G1+SE
1 G4+(2237.71
1 G4+(-2820938
1 G2=(L2-P2)*J
1 G2+(11.995
1 G,"12 DAYS","+/-12 HOURS",11
1 G$="SPACELAB":
1 G$="SHUTPOLE":
1 G$="SALYUT":
1 G$;" INFORMATION BOARD ",,,
1 First: 7A00
1 First: 7000 (ENTER) -
1 File exists
1 FORW4:CALL PRINT
1 FORW2:CP 165
1 FIRST PRESS BREAK
1 FILENAME -
1 FILENAME LOCATION l h>
1 FF-"VERIFY".
1 F,E;" 1. GAMBLE WITH THE DICE ? or,";
1 F+K*E,B;"PART ";K+B;:
1 F+E,E;" 2. PREDICT THE FALL OF THE DICE ? or";
1 F+E+E,e;" 3. COMPOSE AUTOMATICALLY?":
1 Execute must have a parameter
1 Ewiger Kalender
1 Each PAINT PLUS UDG FILE has
1 E^ATX :Ez pAR.PE^:Ep iZM.kup:Ee kATALOG:Es
1 EXPTRAN 01
1 ES=1.671834E-02
1 ERROR >-TX <-RX MENU OR-INV INVERSE
1 EREADER BD
1 EPOCH YEAR
1 EPOCH DAY.DAY
1 EP=EP+(.00256
1 EP=23.452294
1 EP1=EP+DEP1
1 ENTER:CALL PRINT
1 ENTER the number of FILES that
1 ENTER RUN ENTER"
1 ENTER 1-6 dlq trebuemoj opcii
1 ENT EQU IF ORG MAC ENDM
1 ENIE;EKRANU I;PRZESUWAMY TRE
1 ENIE napisu;xs=szeroko
1 ENIE PLANET ZA DNI= ";ODST
1 ELI NUMER;PRZYK
1 EFGHJMQRSUWXYZ
1 EE=(EE-360
1 ECR=1.675104E-02
1 ECCENTRICITY
1 E=E-M5/R3:
1 E9;" AT ";T$;" utc "
1 E4=E4+.0043
1 E4=((38450.89
1 E2=((2813.72
1 E1=((84377.71
1 E0=.0014105
1 E0=.001054
1 E0=.0002657
1 E--ENTER."
1 E"''"Enter
1 E TOHA MIN 300HZ"
1 E TOHA MAX 1800HZ":
1 E LITERY;ABY URUCHOMI
1 E KOHTPACTHOCT
1 E D M C R F H B I P N T K r A L
1 Dictionary full
1 DZY JEDNYM
1 DZIE ZBUDOWANA;RAMKA;NIE RELOKOWA
1 DZIE SKOK MO
1 DZ4>(DZ2-(
1 DZ3=DZ3*6378
1 DZ3)/STOS))*180
1 DZ2=L5+DZ:
1 DX BOARD STARTS HERE
1 DU W PROGRAMIE;WIERSZ DO KT
1 DSL1=-(.00569
1 DS=-(.00569
1 DS7=2401500
1 DS6=435025
1 DS5=145825
1 DNYCH X,Y,R;
1 DNE PUNKTU;WEWN
1 DJNZ EI EX EXX HALT IM IN INC
1 DISK 1-4 :
1 DEVPAC4,
1 DEP1=(.00256
1 DEFB DEFM DEFS DEFW ELSE END
1 DE HL IX IY SP NC Z NZ M P PE PO
1 DD=(DD-360
1 DC3 B>p
1 DB3 C<
1 D6=DM+(MN-1
1 D20=(DE13+DE9)/2
1 D,E;"DO YOU WISH TO :";
1 D$="~50~":
1 D$="sinclair":
1 D$="ZX Spectrum":
1 D$="ZABAWY":
1 D$="Program zawiera":
1 D$="Podprogram
1 D$="PRZYJEMNEJ":
1 D$="PROGRAM PODAJE LIST
1 D$="PROGRAM
1 D$="PODPROGRAMY MO
1 D$="PO WYWO
1 D$="KODU MASZYNOWEGO":
1 D$=" DEMONSTRACJA ":
1 Correct setting
1 Copyright
1 Copy must have 3 parameters
1 Contest scores from locator
1 Contest scores from lat/long
1 CZ2=(CSEZ-CZ1)*60
1 CW2=(CSEW-CW1)*60
1 CU TEGO WIERSZA","0"
1 CSUN=(1.91946
1 CSEZ=CSEZ-24
1 CSEZ=CSEZ+DT
1 CSEZ=CSEZ+48
1 CSEZ=CSEZ+24
1 CSEZ=(PTZ-DLG/15
1 CSEW=CSEW-DT
1 CSEW=CSEW-24
1 CSEW=CSEW+24
1 CSEW=(PTW-DLG/15
1 CS=(1.91946
1 CS2=(CSEZ-CSEW-CS1)*60
1 CRUSS B
1 CQ CQ CQ CQ CQ CQ CQ CQ CQ CQ CQ CQ DE
1 CPDR CPI CPIR CPL DAA DEC DI
1 COUNT:DEFB 0
1 CLOR=(LO1+55
1 CLOL=(LO1+55
1 CLEAR PAPER(P), INK(I), BOTH(B) SCREEN(S), ALL(A), OR NONE(N) !
1 CK Q=CTO
1 CIA;ODPOWIEDNIEGO KLAWISZA;
1 CI; ;NIE RELOKOWA
1 CI W EKRAN;NP:JE
1 CI OKRESLON
1 CI OD X (0-255);
1 CI EKRAN.;ADRES POLO
1 CI EKRAN.1/4S;ADRES PO
1 CI EKRAN.1/4D;ADRES PO
1 CI EKRAN W;ZADANYM OKNIE;WYMIARY OKNA MO
1 CI EKRAN 1/4 G
1 CGZ2=CGZ2-24
1 CGZ2=CGZ2+24
1 CGZ2=CGZ2+12
1 CGZ1=CGZ1-24
1 CGZ1=CGZ1+24
1 CGW2=CGW2-12
1 CGW2=CGW2+24
1 CGW1=CGW1-24
1 CGW1=CGW1+24
1 CC=(CC-360
1 CALIBRATION
1 CALIBRATE ROUTINE
1 CALCULATE THE JULIAN DATE
1 CALCULATE SHOWER PEAK TIME IN GMT
1 CA3>(LO1+54
1 CA3=CA3-(CA3>360
1 CA3<(LO1+1
1 CA3 C
1 CA2>(LO1+54
1 CA2=CA2+(CA2>360
1 CA2<(LO1+1
1 CA ";CZ1; "
1 CA ";CW1; "
1 C=(1.91946
1 C=((1.91946
1 C000 21 01 00 25
1 C,F+E;"Dice Record":
1 C ";M,"DZIE
1 Bw b\JSIH-STR.
1 Bs#AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFFFFFFFFFFFFFFFFFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
1 BpE^ATATX
1 BRZ-1 C
1 BORDER ?!
1 BOOT 50 B@1
1 BHY65TGVNJU74RFCMKI83EDX LO92WSZ
1 BHY65TGVNJU74RFCMKI83EDX
1 BETA Lines
1 BCDEHLAF'NZNCPOPEPMSPRIXIYPCSPIXIYBCDEHLAF
1 BB=(BB-360
1 BAUDE RATE: 1 45.45 2 50XMODE: 1 NORM 2 INVXSHIFT: 1 170 2 425
1 BADCH=9429
1 BACKUP must not be used to
1 B$=B$+H$+" "
1 Arz1 Bj
1 A^ALO :Ef kONEC :Eq pRED.LI:Eg sL.LIST:Ew
1 A^.STR:e5 kON.STR:e8 lIST-WR:e7 lIST-WN:e6
1 AW
1 ASNYCH;PROGRAM
1 ARG PERIGEE
1 ANIU;PRZYK
1 ANIE PODPROGRAMU;POWODUJE SKOK DO;WYBRANEGO WIERSZA PROGRAMU;Z CHWIL
1 ANIE PODPROGRAMU ~PAUSA~;POWODUJE ZATRZYMANIE PROGRAMU;DO CHWILI NACI
1 AMY W;SKRAJNE PO
1 AMACK:";'';" ABTOP
1 ALXKUL:es tAJMER :e~ wYHOD :Sj >b\JSIK:Ei
1 ALT=21.313
1 ALT=-41.317
1 ALT=-33.92
1 ALT=-33.88
1 ALT=-31.95
1 ALT=-12.33
1 ALA,ALO;"A"
1 AL7=(AL5-AL6)*60
1 AL5=(AL3-AL4)*60
1 AL13=AL13+12
1 AGRUZ.:Ed sOHRAN.:Ey sTERETX:Eu fORMAT :Ea
1 ADY;NIERELOKOWALNE;NALE
1 ADUJE BLOKI KODU;BEZ NAG
1 ADU UZYSKAMY;INFORMACJ
1 ADU JEST POZA;EKRANEM W
1 ADC ADD AND BIT CALL CCF CP CPD
1 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
1 AA=(AA-360
1 A,A;"PART ";P1:
1 A$="0123456789ABCDEF"
1 A$=" Latitude Longutude LOC KM DEG":
1 A$=" Latitude Longitude LOC KM PTS TotKM TotPTS":
1 A$=" Latitude Longitude KM DEG":
1 A$=" Latitude Longitude LOC ":
1 A$=" LOC Latitude Longitude ":
1 A$=" LOC KM DEG ":
1 A$=" LOC KM TotKM ":
1 A$=" LOC Equivalent ":
1 A$=" ":
1 A$(N)="44 "
1 A"'"S=COXPAH
1 A B C D E H L I R S AF AF' BC
1 @ukp PREFIKS
1 @rtty mc C:
1 @FISWUAPR[OLDXT]ZJKYEGMC^NQH\VB_`fiswuapr{oldxt}zjkyegmc~nqh|vb!
1 @ BAJT
1 >RTTY T/RB
1 =on5kn C0u
1 ==============================
1 ============================
1 ======================
1 ===========
1 <~~~~~||||
1 <cccccccJCUe
1 <SAVE> bank
1 <LOAD> bank
1 <CR> -
1 ;y$+y$+y$:
1 ;o$;o$;o$;o$;o$;o$;o$;
1 ;o$;o$;o$;o$;
1 ;o$;o$;o$;
1 ;o$;" Press
1 ;j;". ";p$(i)
1 ;j;". ";a$(l):
1 ;dZ/W+277.557
1 ;b$(b);c$(b);
1 ;Y;" ";M;" ";
1 ;TO ZNACZY
1 ;T$;" UTC"
1 ;SLO,(SLA-(3
1 ;SLO,(SLA+(3
1 ;RTTY B:
1 ;PROGRAM DRUKUJE DU
1 ;P OF S B
1 ;MELODIE Z
1 ;LTS;"""";"N"
1 ;LTM;"'";"0"
1 ;LGS;"""";"E"
1 ;LGM;"'";"0"
1 ;KLAWISZA ABY URUCHOMI
1 ;KLAWISZ ENTER"
1 ;KLAWISZ (T) :;POWR
1 ;INSTRUKCJ
1 ;H$(PG+I-1
1 ;G$;" ORBIT BEGINS ";T$;" utc";
1 ;EKRANU W G
1 ;EKRANU W D
1 ;CLOR,CLA,2
1 ;CLOL,CLA,2
1 ;ADRES 23681 OKRE
1 ;ABY ZASTOSOWA
1 ;(Kl.~6~ lub ~7~);W WYBRANYM MIEJSCU;NAST
1 ;(F1-F2) CZ
1 ;'"================================"
1 ;"zhoose a card and press the key";
1 ;"yast# 1: kursor
1 ;"wress a number";
1 ;"wress a letter";
1 ;"wress a key";
1 ;"wress a key":
1 ;"wress a key to choose";
1 ;"wress a key to choose":
1 ;"with five";
1 ;"w qtom teste komp#^ter vdet ot was wwoda komandx":
1 ;"value of obj.func.=";:
1 ;"the meaning of 40 common idioms"
1 ;"teku&ij kursor pokazan w werhnemuglu. navmite takie klawi@i,yto-bx ustanowit# trebuemxj kursor.":
1 ;"tak, navaw prosto H...":
1 ;"subject to"
1 ;"sledu^&ij test poprosit was wwesti posledowatel#nost# simwolow."
1 ;"sledu^&ij test budet dawat#s` doteh por,poka wx ne ego ne ostanowite komandoj =STOP= (navmite =SYMBOL SHIFT= i =A=).poprobujte"
1 ;"sapmler ";1
1 ;"rassmotrim komandx, nanesennxe
1 ;"qti komandx ispol#zu^ts` ya&e i wsegda sto`t w nayale predlove- ni` ili posle komandx =THEN=,"
1 ;"problem is unbounded"
1 ;"problem has no feasible solution":
1 ;"pri kursore
1 ;"press any key"
1 ;"poprobujte e&e":
1 ;"pomnite: ytobx wxzwat# komandx nad i pod klawi@ami,snayala nadoustanowit# kursor
1 ;"page ";1
1 ;"ook basic files"
1 ;"odnako,wx zametili, yto na klawi@ah i wokrug nih nanesenx raznxenadpisi,kotorxe dela^t qtu klawiaturu bolee slovnoj."
1 ;"obxyno migaet kursor
1 ;"o miga^&ih nadpis`h rasskazano wyasti 2. w yasti 1 mx sosredoto-yims` na bukwah i cifrah."
1 ;"navimajte =CAPS SHIFT= dl` polu-yeni` propisnxh bukw...":
1 ;"navaw odnowremenno =CAPS SHIFT= i klawi@u =n=...":
1 ;"miga^&ie slowa na i wokrug klawi@i 'I'- komandx i funkcii `zxka programmirowani` =bejsik= ."
1 ;"means ""to be lucky"""
1 ;"komandx i simwolx,nanesennxe na klawi@ah krasnxm cwetom,peyata^ts` odnowremennxm navatiem klawi@i =SYMBOL SHIFT= i klawi@i simwola"
1 ;"klawi@a =BREAK= ostanawliwaet wxpolnenie programmx.komanda =RUN=(klawi@a =R=,a zatem =ENTER=)za-puskaet programmu snowa.":
1 ;"kavda` komanda (funkci`) wwodit-s` w =spektrum= navatiem sootwetstwu^&ej klawi@i, a ne po bukwam"
1 ;"in this program."
1 ;"funkcional#noe znayenie klawi@i zawisit ne tol#ko ot navati` klawi@ =SHIFT=,no i ot revima, kotorxj indiciruets` kursorom. wsegoimeets` 5 revimow:"
1 ;"enter ss to change sign constraints"
1 ;"enter r to run with changed data"
1 ;"enter qs to change signs of constraints"
1 ;"enter oj to change coefficients of objective function"
1 ;"enter ob to change objective"
1 ;"enter co to change coefficients of constraints"
1 ;"enter cn to change`constants"
1 ;"correct";
1 ;"complete a well known proverb"
1 ;"choose (c-ont),(d-ec) or (h-ex)":
1 ;"bukwx i cifrx na klawiature ras-polovenx toyno tak ve, kak i na pi@u&ej ma@inke."
1 ;"below ready to change press
1 ;"answers"
1 ;"and ";v;" incorrect";
1 ;"________
1 ;"ZHOOSE A CARD AND PRESS THE KEY"
1 ;"ZDRAVKO,YU2RVI"
1 ;"ZA NASTAVAK -> SPACE ";G$;":";N$;":";S$
1 ;"Your answer:";q$
1 ;"Wrong data press RUN ENTER"
1 ;"With five correct answers"
1 ;"When edited. Key
1 ;"What is the meaning of the idiom"
1 ;"WRESS A NUMBER":
1 ;"WRESS A LETTER":
1 ;"WRESS A KEY";
1 ;"WRESS A KEY":
1 ;"WRESS A KEY TO CHOOSE";
1 ;"WRESS A KEY TO CHOOSE":
1 ;"Use CAPS LOCK"
1 ;"UoSat Oscar 11 Propagation Chart"
1 ;"This program asks you to"
1 ;"This program asks you to give";
1 ;"There are 35 well known proverbs"
1 ;"TWO EXAMPLES OF PROVERBS ARE:-"
1 ;"TO FREEZE HOLD A TILL FROZEN PRINTS.TO UNFREEZE PRESS C"
1 ;"So far,you have ";u;" correct";
1 ;"So far you have ";u;" correct"
1 ;"Since both are ";z$
1 ;"Select routine number required:"
1 ;"STOP THE TAPE"
1 ;"SELECTED ";CH2
1 ;"SAVE on TAPE (1) or DISC (2) ?"
1 ;"SATELLITE SELECTION"
1 ;"SATELLITE IN RANGE AZ ";
1 ;"SAT BELOW HORIZON LAT ";
1 ;"Right Ascension O0"
1 ;"Return to ";
1 ;"QWERTYUIOPASDFGHJKLZXCVBNM123456789":
1 ;"QWERTYUIOPASDFGHJKKLZXCVBNM":
1 ;"Program : ""Proverbs"""
1 ;"Program : ""IDIOMS"""
1 ;"Pressany key for MENU":
1 ;"Press key 1 to 3"
1 ;"Press ANY KEY to start":
1 ;"Press ANY KEY to START"
1 ;"Please wait":
1 ;"Please key in your name"
1 ;"Percentage : ";
1 ;"Pekin*":
1 ;"PRESS THE C KEY TO CALIBRATE, THE K KEY TO RETAIN KEPT SCREENS, OR ANY KEY TO CONTINUE.
1 ;"PERCENTAGE: ";
1 ;"PERCENTAGE : ";
1 ;"Orbitno. Nonessential can use 0"
1 ;"OSCAR 11 ON ";DM;"/";MN;"/";YN
1 ;"OSCAR 11 AT ";A$;" ON ";DM;"/";MN;"/";YN
1 ;"ON5KN8509"
1 ;"Now today's date (in any form)"
1 ;"Next program LOADing":
1 ;"NUSELECT M . +2 MIN C"
1 ;"NUMBER TOO BIG":
1 ;"NUMBER TO START (0-RESTART):";an
1 ;"NOW TODAY'S DATE (IN ANY FORM)"
1 ;"NO SHOWER"
1 ;"NEW TIME/CHOICE KEY L STOP A ":
1 ;"Mosco*":
1 ;"Mean Anomaly M0 Mean Motion= N0"
1 ;"MORE? y OR n"
1 ;"MNOZ?";z$(n)
1 ;"MENU? M +2 MIN C"
1 ;"MENU SSTV":
1 ;"MENU RTTY":
1 ;"MENU MORSE"
1 ;"Lista mnozitelja: ZNAK:33"''"CEKANJE-VRIJEME ZNAK ENTER"
1 ;"Lista podataka: ZNAK 00"''"Provjera mnozitelja: ZNAK11"
1 ;"LOADING RZ-1 CODE"
1 ;"Ispravljanje podataka: ZNAK:22"
1 ;"Insert disk for options":
1 ;"Inclination= I0 Orb No.= K0"
1 ;"INPUT MESSAGE M";
1 ;"INCORRECT: ";V
1 ;"HET MECTA
1 ;"H E X input"
1 ;"G4GIE MORSE KEYBOARD";:
1 ;"FROM ON5KN8509":
1 ;"FROM ON5KN":
1 ;"FOR EXAMPLE:-"
1 ;"FILE ";r$;" NOT FOUND !"
1 ;"Epoch dayofyear.decimalday = T0"
1 ;"Edit using l/r cursors + delete"
1 ;"Eccentricity E0 ArguPerigee W0"
1 ;"ENTER MENU NUMBER CHOSEN"
1 ;"DX STATE AT ";T$
1 ;"DARKO, YU2KM";
1 ;"Cairo*":
1 ;"CORRECT: ";U;
1 ;"COMPLETE THE FOLLOWING PROVERB"
1 ;"CHECKING FLIGHTPATH"
1 ;"CERTIFICATE"
1 ;"CANNONICAL:":
1 ;"Beacon Dop"
1 ;"BUSY !!!!";
1 ;"BROJ VEZE: ";n
1 ;"ABBBBBC";
1 ;"================================";
1 ;"9. EUROPE "
1 ;"8. "
1 ;"7. AUST "
1 ;"6. SE ASIA "
1 ;"5. NAMERICA"
1 ;"5. Change Keplerian Data"
1 ;"5 correct answers win"
1 ;"4. Salyut Seven"
1 ;"4. SKY TRACK"
1 ;"4. S AFRICA"
1 ;"30 JUN.-13 JUL."
1 ;"3. WORLD MAP THIS ORBIT"
1 ;"3. Shuttle Polar"
1 ;"3. SAMERICA"
1 ;"28 DEC.-13 FEB."
1 ;"27 JUL.-12 AUG."
1 ;"26 JUL.-30 JUL."
1 ;"23 JUL.- 5 SEP."
1 ;"22 JUN.-30 JUN."
1 ;"21 DEC.-24 DEC."
1 ;"20 APR.-23 APR."
1 ;"2. Track 5/20MIN STEP"
1 ;"2. Shuttle Skylab 50 Deg"
1 ;"2. NEW MODE"
1 ;"2. Look before you leap"
1 ;"19 SEP.-15 DEC."
1 ;"19 MAY.- 2 JUL."
1 ;"15 JUL.-26 AUG."
1 ;"14 NOV.-19 NOV."
1 ;"12 JUL.-21 AUG."
1 ;"12 JUL.-18 AUG."
1 ;"11 MAY.-14 MAY."
1 ;"11 AUG.-11 SEP."
1 ;"10 JUN.-14 JUN."
1 ;"10 DEC.-15 DEC."
1 ;"10 AUG.-14 AUG."
1 ;"1. Track 1 MIN STEP"
1 ;"1. Shuttle Equatorial"
1 ;"1. A stitch in time saves nine"
1 ;"1. "
1 ;"01234567890123456789012345678901":
1 ;"012345";
1 ;"0000000000";
1 ;"/";d$(i,3
1 ;"----LIST OF BUFFER WITH ...":
1 ;"----INCREASE PITCH MAX 1800HZ":
1 ;"----FIXES SELECTION 1 2 3 4 5":
1 ;"----DECREASE PITCH MIN 300HZ"
1 ;"----CTPAH
1 ;"----BANDPASS ";
1 ;"-------------------------------"
1 ;"-----------"
1 ;"----------"
1 ;"- C GRAPH":
1 ;"+(";g(m+1
1 ;"*Tokyo":
1 ;"*Berlin":
1 ;"********"
1 ;"'(";")*+";
1 ;"""To fall on one's feet""";
1 ;"""PROVERBS"""
1 ;"""PARTS OF SPEECH"""
1 ;"""IDIOMS"""
1 ;" to continue":
1 ;" snap ";
1 ;" prodolvit#":
1 ;" medqum";
1 ;" and press key"
1 ;" Your answer : ";q$
1 ;" Which word in the list below is the same part of speech as the word
1 ;" WIN THE RACE ":
1 ;" WELL DONE! ":
1 ;" So far you have ";u;" correct"
1 ;" SNAP ";
1 ;" SELECTS INPUT FREQ" :
1 ;" SELECTS BAUD-RATE" :
1 ;" RETURN - for return to *lbf*"
1 ;" READY ":
1 ;" QUICK-TOUCH SPEEDCORRECT":
1 ;" Press ENTER or
1 ;" ON ";DM;"/";MN;"/";YN ;" "
1 ;" More? y or n "
1 ;" MOSCOW ";
1 ;" MORE y OR n? "
1 ;" MEDQUM";
1 ;" KEPLERIAN DATA CHANGE"
1 ;" KACCETE"'"C
1 ;" Input start adr for code ";cod
1 ;" Input new drivename(a,b,c,d) ";
1 ;" Input name for disk- ";
1 ;" Input SOURCE drive (a,b,c,d)- ";
1 ;" Input DESTINATION drive - ";
1 ;" I erase
1 ;" I copy
1 ;" Format ? (y/n) "
1 ;" FORMAT DISK a* ?(y/n) "
1 ;" ENDS MESSAGE"
1 ;" Copyring Gluharev S.A. ";
1 ;" CKOPOCT
1 ;" = COPY"
1 ;" 9 JUL.-19 JUL."
1 ;" 7 SEP.-23 SEP."
1 ;" 7 MAY.-28 MAY."
1 ;" 6 NOV.- 1 DEC."
1 ;" 6 MAY.-10 MAY."
1 ;" 4 JUL.-29 JUL."
1 ;" 4 JUL.- 2 AUG."
1 ;" 3 NOV.-13 NOV."
1 ;" 3 MAY.-21 MAY."
1 ;" 2 MAY.- 6 MAY."
1 ;" 2 JUL.-25 AUG."
1 ;" 2 JUL.- 3 AUG."
1 ;" 1 JUN.-15JUN."
1 ;" 1 JUL.- 6 JUL."
1 ;" 1 JAN.- 4 JAN."
1 ;" 1 APR.- 6 APR."
1 ;" *TO LOOK BASIC FILES* "
1 ;" snap ";
1 ;" ook ";
1 ;" fast";
1 ;" VR/& BOOTER B "
1 ;" UPPERCASE LOWERCASE":
1 ;" T = TX SSHIFT and Y = RX":
1 ;" T = TX SSHIFT
1 ;" SNAP "
1 ;" SHIFT A=170 B=425 C=850HZ":
1 ;" SELECTS GREY GRADE":
1 ;" REFLECTS SPACE-RATIO":
1 ;" PERMITS FILTERADJUST ----":
1 ;" OUT SCREEN OR PRINT":
1 ;" OOK ";
1 ;" NORMAL - REVERSE MODE":
1 ;" MARK - SPACE TUNING PRINT"
1 ;" JUN.- SEP."
1 ;" I copy DISK ";o$;" to ";i$;" ";
1 ;" HOPM.
1 ;" Formatting ! ":
1 ;" Epoch data year = Y2"
1 ;" +SSHIFT LISTPOINTER UPDOWN"
1 ;" +SSHIFT BUFto SCRN or PRT":
1 ;" +SSHIFT AUTO LOWERCASE":
1 ;" +SSHIFT ABTOMAT
1 ;" YOUR ANSWER No. ";q$;
1 ;" MC MENU "
1 ;" page ";
1 ;" files ";
1 ;" WIDE
1 ;" TO CONTINUE ...":
1 ;" SAVES THE PRESENT PICTURE":
1 ;" PRINT THE PICTURE":
1 ;" PAUZE":
1 ;" PAUSE ....":
1 ;" PAUSE ...."
1 ;" PAPER COLOUR BLUE OR WHITE":
1 ;" LOAD A PICTURE"
1 ;" INVERSE
1 ;" INCREASE CONTRAST":
1 ;" INCREASE BRIGHTNESS"
1 ;" ERROR ON STOPBIT"
1 ;" BO3BPAT K MEH
1 ;" BACK TO THE MENU":
1 ;" AUTOMATIC SAVINGS":
1 ;" ABTOMAT
1 ;" 8 or 16 seconds FRAMES":
1 ;" ...wx poluyite propisnu^ ";
1 ;" ...poluyite stroynu^ bukwu ";
1 ;" D DEMO :S
1 ;" "+(" "
1 ;" "
1 ;" ______________"
1 ;" ":
1 ;" "
1 ;" "
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" ":
1 ; SINGLE-STEP-
1 :$XG:%XOx2%X:&XGy2&X:'XOx2'X:(XGy2(X:)XOx2)X:*XGy2*X:+XOx2+X:,XGy2,X:-XOx2-X:.XGy2.X:/XOx2/X:0XGy20X:1XOx21X:2XGy22X:3XOx23X:4XGy24X:5XOx25X:6XGy26X:7XOx27X:8XGy28X:9XOx29X::XGy2:X:;XOx2;X:[XGy2[X:{XOx2{X:
1 : ";time;" CEK
1 : SINGLE-STEPPING
1 9z -4.18E-5
1 9z -.0000418
1 9grpofs CX
1 999-alter;EDIT-rus=>lat
1 8PROVERBSBu
1 8<=63;5942:7E
1 8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 7L/W+323.946
1 78788777777677457487777675779787R
1 78788777777677457487777675779787I
1 73 de UA1AUW
1 7109 CO RET NZ
1 7108 37 SCF
1 7107 B2 Mul OR D
1 7106 EB EX DE,HL
1 7104 30 01 JR NC,Mul
1 7103 19 ADD HL,DE
1 7101 ED 52 SBC HL,DE
1 7100 AF Mult XOR A ;
1 7092 21 00 00 LD HL,0
1 708F CD 1D 71 CALL Aout
1 708E 7D LD A,L
1 708B CD 1D 71 CALL Aout
1 708A 7C LD A,H
1 7087 CD 00 71 CALL Mult
1 7083 ED 5B 02 72 LD DE,(#7202)
1 7080 2A 00 72 LD HL,(#7200)
1 7,10;"THIS GO ";d$;"1"
1 6r#6U#6S##6m###6r#6U#6S##6b
1 6printcomB
1 6l#6A#6T##6b###6l#6A#6T##6m
1 6PROGRAM B
1 65536.
1 65535=-1.
1 65278 V C X Z Cs61438 6 7 8 9 0
1 65022 G F D S A 57342 Y U I O P
1 64510 T R E W Q 49150 H J K L EN
1 63486 5 4 3 2 1 32766 B N M SSsp
1 6 s t e r e t x bank
1 6 CHR LOC.ENCODE
1 6 CHR LOC.
1 5UUUUUUUUZ?
1 5UUUUUUUUUUUUUUUUUUUUUU\
1 5D1E 1
1 5D16 1
1 5D07 1
1 5CFD 1
1 5CFC 1
1 5CFB 1
1 5CFA 1
1 5CF9 1
1 5CF8 1
1 5CEA 1
1 5CE6 2
1 5CDD 8
1 5CCB 1
1 5CCA 1
1 5CC9 1
1 5CC8 1
1 59990,5375
1 59'59""S- 89
1 59'59""E"''"Borderline points are encoded in square to N or E of border"''"Enter QTH to be encoded :"'A$
1 59'59""E"'"WORLD (6-chr) system valid for 89
1 57399,X (0-255);PRZYK
1 57387,X (0-255);PRZYK
1 57016,HA","1"
1 56889,HA","1"
1 56762,HA","1"
1 56635,HA","1"
1 56628,X","0"
1 56622,X","0"
1 56616,HA;ZALE
1 56613,HA;CZ
1 56604,HA","1"
1 56601,HA;ORAZ D
1 56589,HA","1"
1 56587,HA;ORAZ D
1 56488,HA;PROGRAM NIE RELOKOWA
1 56427,Y;USTAWI
1 56329,HA","1"
1 56231,HA","1"
1 56133,HA","1"
1 56039,HA","1"
1 56002,HA;ADRES PIERWSZEGO WIERSZA","1"
1 54wpqrstu6
1 5000000000000015%
1 5 CHR LOC.ENCODE
1 5 "LOAD" nowyj bank
1 4pl1 B
1 4PROGRhexB
1 4F83AB3F8A7CE012732B3F8FE13C246F83E0132B3F8DD2118403AB3F8CD79F83E0ACD8CF83AB4F8CD79F83E0ACD8CF83AB5F8CD79F821185806
1 47009:;D$-~NAPIS~ X-~WIERSZ~;Y-~KOLUMNA POCZ
1 46978,(64 128 192);ILO
1 46972,(0-255);WYPE
1 46958,EFEKT BORDER","0"
1 46877,X;X-KOD WYBRANEGO KLAWISZA","0"
1 46821,HA","1"
1 43705 ","0"
1 43596,HA","1"
1 43543,R","0"
1 43509,Y","0"
1 43495,Y;X' Y' WSP
1 43473,X-KOLOR","0"
1 43458,X-KOLOR","0"
1 42000,16384
1 4 bank na "SAVE"
1 3k CTo
1 3grgroup CX
1 3PLANET B6
1 33,"3 DAYS","+/-12 HOURS",11
1 32767
1 3$),8<=6;-.'
1 3 blank dlq pe@ati
1 23838
1 23805
1 23804
1 23803
1 23802
1 23801
1 23800,23801.
1 23800
1 23798
1 23788
1 23787
1 23786 (0...255)
1 23782 (
1 23773
1 23755
1 23754
1 23753
1 23752
1 23736,181:;
1 2345/7-1
1 23306,X","0"
1 206+%,:>)'&#-=*T!</975
1 2 oformlenie blanka
1 1311112111111121231111212111112123311121213111212331112121311121111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111133312111303321113231211132302111313121113130211131312111313021
1 12345,12345
1 11131111111311111311111311111311113111311131111111111111111
1 1111111111111111111111111111111111111111118888888888888888888888888888888888888888888888888888888888888888
1 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
1 1110000000000101000111L
1 11,10;"H T K P L U S"
1 10 START: LD HL,22A0
1 10 HOURS
1 1.z6TVsw~GxQnCk
1 1 whod w bank
1 1 6 15 21 26 -
1 0123456789AbCdEF
1 0123456789ABCDEFZ
1 008xxxx800
1 00008x88x8000
1 000070000000008000000000900000000010000000002000000000300000000040000000005000000000600000000070000000008000000000900000000010000000002000000000-200
1 00000888888000000
1 000008888880000
1 0000008xxxx00000000
1 0000008x88x80000000
1 00000000055000
1 00000000000000000000000000000000000000000000000000000000000000000044444444444444440000///////0000000000000000000000000/?????/0000000000000000000000000(?????/0000000000000000000000000/?????/0000
1 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011111111111111111111111111000000111111111111111111111111110000001111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1 0000000000 0115
1 000000//555000000000000000000000000000//550000000000000000000000000000000550000
1 00000(((0000(((00000
1 00000((((00((((00000
1 0000((((((((((00000
1 0000((((((((((((0000
1 0000 xxx0000xxx 00
1 0000 00000 0000
1 000///////0000
1 00'00""W-179
1 00'00""W-051
1 00'00""N- 89
1 00 00 00 00 A
1 00 xxx0000xxx 00
1 0/W+6891011.733
1 0*TJC-.000014
1 0*TJ-.000014
1 0*T-1.4E-5
1 0*T-.000014
1 /{g`zhg{/0
1 /W+506.893
1 /W+426.675
1 /W+21066916.288
1 /(149674000
1 .ostal#nxe 3 revima ustanawliwa^ts` navatiem sledu^&ih par klawi@:"
1 .HELLO DR OM
1 . CTP., P=
1 . 16.10.1989
1 .
1 -select files ";
1 -files in ";o$;" to ";i$;" drive ";
1 -RO*RO)/(1
1 -J2*J2))+P1/2
1 -F-C,-E,D:
1 -F,-C*F,-1.2
1 -ECR*ECR)/(1
1 -DZ3*DZ3))+P1/2
1 -DXA*DXA))*180
1 -DC*DC))*180
1 -A program which will decode the header and which will give you Auto line no. Start and Length of bytes & File type & name."
1 -A program that can copy those files(upto 47.5K or 15.5K) that BACKUP a may not copy correctly."
1 -A program that can copy almost all files (upto 47.5K or 15.5K)."
1 ---!------------------!---------
1 -,nohijklm.
1 -(W9-LO1)*3
1 -(W5-LO1)*3
1 -(HSUN>360
1 - MINICOM SOFTWARE -X PROGRAM RTTY R/TX BYX ROMAN LAVRIV &X NINO YANKIEVICZX
1 ,x;;"{|}":
1 ,x;"wwod komandx bejsika";
1 ,x;"stroynxe bukwx";
1 ,x;"ras@irennxj revim";
1 ,x;"propisnxe bukwx";
1 ,x;"grafiyeskij revim"
1 ,x;"]^^_`";
1 ,x;"XYZ[\":
1 ,x;"STUVW";
1 ,x;"NOPQR";
1 ,x;"JKL;<";
1 ,x;"HHHHI":
1 ,x;"E"+("FG"
1 ,x;"A"+("BB"
1 ,x;">=<;";
1 ,x;"40321";
1 ,x;"4"+("55"
1 ,x;"01234 ";
1 ,x;"....?";
1 ,x;"+";",-.";
1 ,x;"*+";",";"-";
1 ,x;") *+";
1 ,x;"&'(";")";
1 ,x;"&%%%'":
1 ,x;"%&";"'(";")"
1 ,x;"$#""! ";
1 ,x;"#$%&'()*"
1 ,x;"#$%&'(";
1 ,x;" @AB";
1 ,x;" ";"012345";
1 ,x;" ";" !""";
1 ,x2;f$(pl2
1 ,x2;e$(pl2
1 ,x1;f$(pl1
1 ,x1;e$(pl1
1 ,n+w+i)=-t
1 ,n+w+i)-t:
1 ,n+w+i)+t)
1 ,m+n+w+i)=t:
1 ,j);")y";j;:
1 ,j);")x";j;:
1 ,i)=-a(m+1
1 ,i);")z1";:
1 ,esli tol#ko komp#^ter ne vdet wwoda komandx bejsika.w qtom sluyae migaet kursor
1 ,A;"THROW [ ENTER ]":
1 ,,"REKTASCENSJA S
1 ,"60 DAYS","+/-12 HOURS",6
1 ,"5 DAYS","+/-12 HOURS",6
1 ,"5 DAYS","+/-12 HOURS",5
1 ,"47 DAYS","+/-12 HOURS",1
1 ,"44 DAYS","+/-12 HOURS",5
1 ,"4 DAYS","+/-75 MINS",8
1 ,"30 DAYS","+/-12 HOURS",6
1 ,"3 DAYS","+/-12 HOURS",6
1 ,"3 DAYS","+/-12 HOURS",12
1 ,"25 DAYS","+/-12 HOURS",6
1 ,"21 DAYS","+/-12 HOURS",5
1 ,"20 DAYS","+/-20 HOURS",7
1 ,"20 DAYS","+/-12 HOURS",7
1 ,"20 DAYS","+/-12 HOURS",11
1 ,"20 DAYS","+/-12 HOURS",10
1 ,"2 DAYS","+/-12 HOURS",7
1 ,"2 DAYS","+/-12 HOURS",6
1 ,"2 DAYS","+/-12 HOURS",10
1 ,"18 DAYS","+/-12 HOURS",5
1 ,"12 DAYS","+/-12 HOURS",12
1 ,"10 HOURS","+/-10 HOURS",4
1 ,"10 DAYS","+/-12 HOURS",8
1 ,"10 DAYS","+/-12 HOURS",6
1 ,"10 DAYS","+/-12 HOURS",11
1 ,
1 ,
1 ,
1 +~2h[#~2i[$+:h[w#:i[w$
1 +j,k;" ":
1 +ch),r-(r>4
1 +N*D;M(K*8
1 +M1+M2+M3-.00015
1 +L1+L2+L3+.0003025
1 +53) (35
1 +52) (34
1 +51) (33
1 +50) (32
1 +2400.051262
1 +1.91398591
1 +/-15 MINS
1 +.3.+.,,')'))),)%%'',0''% )%,) %%))*)')*,%%%%
1 ++ ++ ++ + ++ ++ +
1 +(LO1-WA5)*3
1 +"%&0:DN":
1 +" ","0"
1 *wid,-ht2:
1 *wid+wid2:
1 *t1-77.396
1 *oo+((a(i2)=6
1 *loc/loc dist. & bear.
1 *c(j))+" is"+(" at the"
1 *TJCS+1.075E-06
1 *TJCS*TJCS
1 *TJC-1.26E-07
1 *TJC-.00015
1 *TJC+.0003025
1 *TJC*TJC-.0000033
1 *TJC*TJC)*
1 *TJ-1.26E-07
1 *TJ-.00015
1 *TJ+.0003025
1 *TJ*TJ-.0000033
1 *TE+1.075E-06
1 *T/W-.3515
1 *T/W-.0066
1 *T/W-.0005
1 *T/W-.00035
1 *T/W+.1476
1 *T/W+.1061
1 *T/W+.00454
1 *T-1.26E-7
1 *T-.000000126
1 *T+W*(T3-T4)-1.5E-4
1 *T+W*(T3-T4)+.0003025
1 *T+.000026
1 *T+(-87878.82
1 *T+(-40391671
1 *T*T/W-.00192
1 *T*T/W-.00043
1 *T*T-3.3E-6
1 *T*T-.0000033
1 *T*T+503E-9
1 *T*T+5.03E-7
1 *T*T+.000000503
1 *T)-(296214
1 *SUBROUTINES*
1 *SCORES LAT/LONG
1 *SCORES FROM LOCATOR*
1 *MSUN))*180
1 *LOCATOR ENCODE*
1 *GM))*2.3025851E-9
1 *G4)+(180.555
1 *G4)+(16.649
1 *G4)+(1.651
1 *G4)+(-2481
1 *G4)+(-248071
1 *G4)+(-24117
1 *G2)+(.071
1 *G1)-28.74
1 *G1)+(82.56
1 *G1)+(4.37
1 *G1)+(381.14
1 *G1)+(1892.1
1 *G1)+(18.72
1 *G1)+(-548.05
1 *G1)+(-2579.08
1 *G1)+(-123.22
1 *F FILENAME
1 *ERROR* 10 (
1 *D *E *H *L *S *C *F *M
1 *******************************
1 ***** **** *** *** ***
1 ** simplex algorithm **
1 *(z$="front"):
1 *(t-h0)+.5
1 *(j-117.821
1 *(e$<"4"):
1 *(JD-2396758.2035
1 *(DZ3-LA1))>2
1 *(DZ3-LA1))<174
1 *(DZ3-LA1)),2
1 *((e(n)-e1)/(e2-e1))
1 * aDAPTIROWAN d.g.s. *
1 * MONS4 *
1 )GW.ZACM.C_
1 )=-a(i,l+1
1 )=(S2*S1):
1 )=(C2*S1):
1 )="--------------":
1 )=" ":
1 )="
1 )<"g")+1153
1 )<"e")-3899
1 );"."+("//"
1 );")z";j;:
1 );" bytes"''''"Press 1 to 9 to"'"LIST routines 1 to 9"'''"Start the tape &"'"press ""l"" to LOAD next program"''"Press ""s"" to SAVE & VERIFY"'''"Press ""x"" to dump program (NEW)"'''"Press ""m"" to return MENU"
1 );" ":
1 )4C80:=3+*?S6Z/-2 71(
1 ),x;" "+(" "
1 )+j$(ln*i2-ln+2
1 )+("\he pig"
1 )+("\he pig has a"
1 )+"the wall. ":
1 )+"CODE "+S$+","+D$(1
1 )+" has a"+("n"
1 ) "IX"
1 (xxxxxxxxxxxxxxxxxxxxxxx(((((((((xxxxxxxxxxxxxxxxxxxxxxx(((((((((xxxxxxxxxx8xxxxxxxxxxxx(((((((((xxxxxxxx888888xxxxxxxxx(((((((((xxxxx8888888888xxxxxxxx(((((((((xxx888888888888888xxxxx(((((((((xxx8888888888888888xxxx(((((((((xxx88888888888888888xxx(((((((((xx888888888888888888xxx(((((((((xx888888888888888888xxx(((((((((xx888888888888888888xxx(((((((((xx888888888888888888xxx(((((((((xx888888888888888888xxx(((((((((xx888888888888888888xxx(((((((((xx888888888888888888xxx(((((((((xxx8888888888888888xxxx((((((((((xx8888888888888888xxxx((((((((((xxx88888888888888xxxx((((((((((((xxx888888888888xxxx8((((((((((((xxxxx88888888xxxxxx((((((((((((((xxxxxxxxxxxxxxxxx((((((((((((((((xxxxxxxxxxxxxxx(((((((((((((((((((xxxxxxxxxxx(((((((((((((((((((((((0xxxxxx((((((((((((((((
1 (k)+" "+m$(d(r)
1 (e$(d)="9"
1 (d0)>.0001
1 (^) -
1 (ZA5*P1/180
1 (ZA4*P1/180
1 (Y1/F)=Y1/F
1 (V4.1B)
1 (UP/DW)*180
1 (TOP/BOT)*180
1 (SL3))*180
1 (RO*V)/V;" j.a."
1 (RNDT+N)):
1 (R*R+RE*RE-2
1 (PR*V)/V;" j.a."
1 (POKE'S)
1 (NUSUN*P1/180
1 (NS*P1/180
1 (N+B))*KY:
1 (MU*P1/180
1 (M)+(.020094
1 (LINE FEED).
1 (LA/P0-LA1)))
1 (L5*P0))))
1 (KS*KS+ET*ET+DZ*DZ)
1 (KS*KS+ET*ET))/J
1 (INK, PAPER, FLASH, BRIGHT)
1 (HS1)/V3*J*T
1 (G1)+(10732.78
1 (G1)+(-13416.31
1 (ENTER) -
1 (DD)+.00178
1 (DD)+.00000927
1 (DA-D4)*60
1 (D0-DE4)*60
1 (CSEZ-CSEW)
1 (CC)+.00179
1 (CC)+.00003076
1 (CARRIAGE RETURN)
1 (BB)+.00001627
1 (ADR/256)";
1 (ADR/256)":
1 (AA)+.00154
1 (AA)+.00001575
1 (<-) - DOWNWARD 8 -
1 (70016-65536=4480)
1 (23.452294
1 (23.445788
1 (23.442136
1 (0...127).
1 (->) - FORWARD 8 -
1 (,) - GET STACK -
1 ((vartrans X X))
1 ((symbval ()))
1 ((symbval ((X|Y)|Z))
1 ((sub X Y Z)
1 ((sub (X|Y) Z (x|y))
1 ((sub () X ())
1 ((shrink () ())
1 ((shrink ((X Y)|Z) (X|x))
1 ((shift-r X 0 X)
1 ((shift-r (X Y ()) Z (X Y ())))
1 ((shift-r (X (Y) (Z|x)) y (z X1 Y1))
1 ((shift-l X 0 X)
1 ((shift-l ((X|Y) (Z) x)
1 ((shift-l (() X Y) Z (() X Y)))
1 ((samevar X (Y Z))
1 ((listvars (X|Y) ((Z X)|x))
1 ((listvars () ())
1 ((listp X (Y|Z))
1 ((listp X ()))
1 ((bind X Y Y Z Z)
1 ((bind X (Y|Z) Z x ((X Y)|x))
1 ((bind X () () Y Y)
1 ((bind (X|Y) Z x y z)
1 ((bind () X X Y Y)
1 ((Zip X X Y Y)
1 ((Zip (X|Y) (Z|x) y z)
1 ((Zip () () X X)
1 ((Update-p X Y Z x Y)
1 ((Update-p X Y ((X|Z)|x) ((X|Z)|x) Y)
1 ((UpC (X Y Z) x)
1 ((SUM 1 z Y) (FIND X z Z x)) ((EQ (Z x) (Y y)))))
1 ((SHIFT-R X Y Z x y z)
1 ((SHIFT-L X Y Z x y z)
1 ((Rev-list () X X))
1 ((Prompt X Y)
1 ((P-code 5 "File error"))
1 ((P-code 13 "Line or point off screen"))
1 ((P-code 12 "Illegal use of modules"))
1 ((P-code 11 "Break !"))
1 ((NextC (X Y (Z|x)) (y (Z) x))
1 ((NextC (X (Y) ()) ((Y|X) () ())))
1 ((L4-O4+E4)*J))
1 ((L2-O2+E2)*J)/
1 ((L2-O2+E2)*J))
1 ((L1-O1+E1)*J)/
1 ((L1-O1+E1)*J))
1 ((Insert-in-P X X Y)
1 ((Insert-in-P 0 1 X)
1 ((I-1867216.25
1 ((Goto-P X Y Z)
1 ((Goto-P X Y "No clause")
1 ((Front-C X (Y|Z) x (Y|y))
1 ((Front-C 0 () X X))
1 ((FIND X Y Z x)
1 ((Edit-term X Y)
1 ((Edit-in-C X n Y)
1 ((Edit-in-C X m Y)
1 ((Edit-in-C X k Y)
1 ((Edit-in-C X b Y)
1 ((Edit-in-C (X Y Z) w (X (x) y))
1 ((Edit-in-C (X Y Z) i (X (x) y))
1 ((Edit-in-C (X (Y) Z) u (X (x) y))
1 ((Edit-in-C (X (Y) Z) s (X (x) Z))
1 ((Edit-in-C (X (Y)
1 ((Edit-in-C (X
1 ((Edit-P X Y Z)
1 ((EdP X Y Z o)
1 ((EdC X Y o)
1 ((E-in-P X Y Z v Y ((X|x)|y))
1 ((E-in-P X Y Z n x y)
1 ((E-in-P X Y Z m x y)
1 ((E-in-P X Y Z k x y)
1 ((E-in-P X Y Z i x y)
1 ((E-in-P X Y Z c x Z)
1 ((E-in-P X Y Z b x y)
1 ((E-in-P X Y Z a x y)
1 ((E-in-P X Y (Z|x) t y z)
1 ((E-in-P X Y (Z|x) e y z)
1 ((E-in-P X Y
1 ((DownC X (() Y Z))
1 ((DisplayC (X (Y) Z) Y))
1 ((DisplayC (X () Y) "No term")
1 ((Delete-in-C ((X|Y) Z x) (Y (X) x)))
1 ((Delete-in-C (() X Y) (() () Y)))
1 ((DS7+2401500
1 ((DS6+435025
1 ((DS5+145826
1 ((COPYRIGHT 1983 LPA LTD (V 6 -16)))
1 ((C-E)/J2)
1 ((BackC ((X|Y) Z x) (Y (X) y))
1 ((BackC (() (X) Y) (() () (X|Y))))
1 ((Append-in-P X Y Z
1 ((Append-in-P X 0 1 Y)
1 ((App-C (X|Y) Z (X|x))
1 ((App-C () X
1 ((AL5-AL6)*600
1 ((AF-AH)*600
1 ((9.85933745
1 ((183842496
1 ((00000000000000
1 ("variable ";j;" (
1 ("value of obj.func.coeff.";j;"=");g(m+1
1 ("value of constant ";i;"=");e(i):
1 ("value of coeff.(";i;",";j;")=");g(i,j):
1 ("form of constraint ";i;"(
1 ("constraint ";i;" (
1 ("constant ";i;": ");e(i):
1 ("coefficients of objective funct:coefficient ";j;": ");x:
1 ("coefficients of constraints: constraint ";i;",coefficient ";j;": ");x:
1 (";R$;")";
1 (!=(*=(.=(8
1 'l&/< /= 7<
1 'OSCAR 11B
1 'ON5KN850C0u
1 'A$;"WENUS"
1 'A$;"MERKURY"
1 'A$;"MARS"
1 '''"qto perwa` yast# iz 4 programm po izuyeni^ klawiaturx=spektrum=":
1 ''"navatie qtih ve kombinacij e&e raz wozwra&aet revim (kursor)
1 ''"locate 1 SAVEd:"''"Rewind tape,"'"set recorder to PLAY,"'"press any key to VERIFY":
1 ''"Enter STOP for menu"''"Enter Locators"'"of distant stations:"'A$(22
1 ''"Enter STOP for menu"''"Enter Locators"'"of distant stations:"'A$
1 ''"Enter Locators"'"of distant stations:"'A$(22
1 ''"Enter Latitudes & Longitudes of distant stations:"'A$
1 ''"""locate 1"" VERIFYs OK":
1 ''" CONCEPT IN.....COMPUTER MUSIC"
1 '"yast# 4: kursor
1 '"yast# 3: kursor
1 '"yast# 2: kursor
1 '"slowo =wwesti= oznayaet,yto zakanyiwa` peyat# simwola ili strokisimwolow, nado navat# klawi@u,nakotoroj napisano =eNteR=."
1 '"kursor":
1 '"esli was pros`t =navat#= klawi@usimwola ili komandx, to navimat#=ENTER= posle navati` ne nado.":
1 '"esli programma prekratit wypolnqtxsq i wernetsq w bejsik s soob&eniem ob o%ibke,to dajte komandu:"''"GO TO
1 '"Program: locate 1":
1 '"Locator encode ...............7"
1 '"Locator decode ...............6"
1 '"Locator conversion ...........8"
1 '"LIST & exit routines .........9"
1 '"Distances & bearings"'"between locator & locator ....3"
1 '"Distances & bearings"'"between lat/long & locator ...2"
1 '"Distances & bearings"'"between lat/long & lat/long ..1"
1 '"Contest scores from locator ..5"
1 '"Contest scores from lat/long .4"
1 '" You may now load in HEADER by the command LOAD """"CODE and type RANDOMIZE USR 23296 to run the program."
1 '" Make a note of what is printed on the screen especially Start and Length of bytes. Once the tape has been played through, rewind it and load BACKUP a by the command LOAD """" and follow the instructions provided."
1 '" For example if the program you are going to copy consists of three files,you would load in BACKUP a,then the first file, then save it. Then you reload BACKUP a,then the second file and then save it and finally, load BACKUP a again,then the third file and save it."
1 '" IS NOW
1 '"
1 &abc CX
1 &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
1 %BLOCK OK
1 %50000000000015%%%%
1 %10001001100
1 %%%%%%%%%%%%%%%%%%%%%%
1 %$fg`abcde&
1 $tT*T*T/W:
1 $ed
1 $Z! 9004 01 00 00 LD BC
1 $="SHUTTLE":
1 $$$~B$~@|@@~
1 #eg`ip_en^eb[ampigX
1 #eg the hen`ip the cat_en the dog^eb the rat[am the fox\he fat pigh
1 #UUUUUUUUc
1 #D,#F,#10,#11 -
1 #ADDR LEN NAME
1 #/W+53810665.48
1 "z:copy,c:primal,r:new problem, s:save,d:change-data ";
1 "z:copy,c:dual ";
1 "z:copy,c:cannonical-dual ";
1 "z";j;"=";
1 "yto pozwol`et komp#^teru re@it#,kak interpretirowat# navatie klawi@i - kak bukwu ili kak komandu"
1 "y";j;"=";r(j);" ";:
1 "x";j;s$(j);"0 ";
1 "x";j;"=";k(j);" ";:
1 "which variable~s sign? ";j:
1 "which variable? ";j:
1 "which constraint~s sign? ";i:
1 "which constraint? ";i:
1 "which constant? ";i:
1 "which coeff.? ";j:
1 "well","never","alike","last","clean","away","deep","first","near","differently"
1 "translation permitted"
1 "to sit on the fence","to take the bull by the horns","to hit below the belt","to make both ends meet","to strike while the iron is hot"
1 "to show the white feather","to put your foot in it","to play the game","to hold your tongue","to blow your trumpet"
1 "to show cowardice","to say or do the wrong thing","to act fairly","to keep silent","to boast"
1 "to refuse to take sides","to face difficulties boldly","to act unfairly","to have sufficient money","to act at the right moment"
1 "to pay too high a price","to do things the wrong way round","to be content to let someone else take the lead","to make a big fuss about nothing","to act independently"
1 "to pay through the nose","to put the cart before the horse","to play second fiddle","to make a mountain out of a mole-hill","to paddle one's own canoe"
1 "to overdo work and play","to be very frightened","to make peace","to confess","to have something to be proud of"
1 "to ignore","to discourage","to deceive","to have a wretched existance","to fix the limit"
1 "to hit the nail on the head","to go through the mill","to keep the pot boiling","to turn the tables","to let the cat out of the bag"
1 "to go on all fours","to be dead beat","to be down in the mouth","to sweep the board","to make no bones about it"
1 "to give the cold shoulder","to throw cold water on","to lead up the garden path","to lead a dog's life","to draw the line"
1 "to get on your high horse","to turn over a new leaf","to smell a rat","to get into hot water","to be hauled over the coals"
1 "to crawl","to be exhausted","to be depressed","to take all","to speak out"
1 "to burn the candle at both ends","to have your heart in your mouth","to bury the hatchet","to make a clean breast of","to have a feather in your cap"
1 "to be right","to experience suffering","to keep going","to reverse a result","to tell what should be a secret"
1 "to be haughty","to try to do better","to be suspicious","to be in trouble","to be punished"
1 "s";i;"=";
1 "objective function to be (min/max): ";
1 "nouns","verbs","pronouns","adjectives","adverbs","prepositions"
1 "no of variables: ";n:
1 "no of constraints: ";m
1 "navmite ";
1 "navmi V dlq werifikacii "'"ili l#boj kl#@ dlq prodolveniq."
1 "locate 1":
1 "locate 1"
1 "ln=";l;"cn=";c;"lk=";k;"ck=";j;"sdwig=";s:
1 "lazily","luckily","easily","helpfully","suddenly","quickly","angrily","quietly","willingly","sternly"
1 "l";l;"c";c:
1 "it","him","them","he","she","you","us","we","I","they"
1 "hungry","odd","easy","pleasant","friendly","slow","enormous","sleepy","moist","lucky"
1 "give start loc. ";(y$+" ");i$:
1 "gave","roared","is","enjoy","remember","have","annoy","poured","tried","sit"
1 "for decimal notation press 'd'"''''"for hexa notation press 'h'"''''"follow instructions printed"'"on the screen"'''"if you want to break deassem-"'"blation at any moment, then"'"press 'SPACE' key":
1 "filename ";r$
1 "dl` prodolveni` navmite ";:
1 "dajte imq banku dannyh: ";
1 "bush","king","mile","moss","milk","sound","feast","lining","day","robbery","turning","pound","lamb","speed","invention","tune","fall","poison","summer","mind","fire","gander","child","worm","broth","work","basket","way","valour","home","happiness","misery","love","war","peace","luxury","sky","name","smile","drink","dust","food","flattery","ship","thought"
1 "beast","friends","teacher","lion","animals","noise","method","luck","pleasure","roof"
1 "above","about","behind","in","upon","to","towards","from","by","with"
1 "________________________________":
1 "________________________________"
1 "]\w#6$#6=
1 "ZNAK:";a$(n)
1 "Your answer: ";p$(1
1 "YEAR EG 85 ";YN
1 "YEAR EG 83 ";YN
1 "Wrong location code":
1 "Wollen Sie weitere Ermittlungen (j/n) ?"
1 "WHAT IS THE YEAR (YYYY) ";y
1 "VIERGINIDS",15
1 "VERB:- A doing word. eg. ""run"",""stand"""
1 "URSIDS",270.0
1 "UPISI SATE -> ENTER"''"UPISI MINUTE"''"NA TOCNO VRIJEME STARTAJ SAT SA ENTER":
1 "UDG area name :";n$
1 "TYPE IN THEN NUMBER OF THE SHOWER (1-2)";n
1 "TYPE IN THE NUMBER FOR THE SHOWER (5-9)";n
1 "TYPE IN THE NUMBER FOR THE SHOWER (41-43)";n
1 "TYPE IN THE NUMBER FOR THE SHOWER (30-39)";n
1 "TYPE IN THE NUMBER FOR THE SHOWER (10-17)";n
1 "TYPE IN THE NUMBER (3-4)";n
1 "TYPE IN NUMBER FOR THE SHOWER (48-49)";n
1 "TYPE IN NUMBER FOR THE SHOWER (42-47)";n
1 "TYPE IN NUMBER FOR THE SHOWER (37-42)";n
1 "TYPE IN NUMBER FOR THE SHOWER (15-29)";n
1 "TOP .B","TF .B","SS .B","ASS .B","DIS .B","DOCTOR .B","s2 .B","SIST .B","KAT .B","loader .B","load .B","lll .B","LOAD .B","LO .B","00 .B","l00 .B","boot .B","BOOT2 .B","BOOT2 .B","SHOOT OU.B","LO .B","bot .C","00 .B","l00 .B","boot .B","SKILLS.S.B","BOOT2 .B","SHOOT OU.B","LOAD .B","LO .B","bot .C","00 .B","l00 .B","boot .B","SKILLS.S.B","BOOT2 .B","SHOOT OU.B","nort 1 .B","paint1 .C","paint2 .C","MASOLO-3.B","HLAS .B","hlas .C","HP4T5M .C","PASCAL-5.B","Pmc V.3 .C","PLATA.V3.B","30mcrou .C","DEMOPRO .B","diag .C","Tape dia.B","omnicalc.B","TV gener.B","TELEtest.B","abcde .C","STATIST .B","INVADER .B","GAMELAS .B","GOLOS .B","OMNICOPY.C","OMNICOPY.B","PIRAT-2 .B","Pirate02.B","ZXG 1.2..C","ZX-graf .B","SAY .C","FONGEN .B","textcode.C","TEXT-RUS.B","ramdos1 .C","ramdos2 .C","ramdos3 .C","ramdos .C","RAMDOS .B","ZEUS .C","zeus .B","R/WR. .B","SCRCOPY4.B","boot
1 "TITLE....Spaceman2 "
1 "TITLE....PROP11":
1 "TITLE ? ";A$:
1 "THIS PREDICTION HAS AN ACCURACY OF ";a$(n)
1 "THETA AURIGIDS",95
1 "THE ";s$(n);" METEOR SHOWER WILL PEAK ON ";d(n);"/";
1 "TEMPO (1-6) ";L:
1 "TAURIDS",220.0
1 "TAURIDS S",220
1 "TAURIDS N",230
1 "T new time, C choice, A END ";H$
1 "Start=";s'"File length=";l:
1 "Speed=";s;"wpm":
1 "Speed=";s;"wpm"
1 "Samstag","Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag"
1 "SZER.GEOGR.=";SZG;"
1 "SZER.GEOG.: ";SZG
1 "STRING" -
1 "SPACEMAN2" November 8th 1985 , visual and radio tracking program for Shuttle and Salyut.Copyright of GM4IHJ. Copying absolutely prohibited
1 "SPACEMAN"
1 "SIGMA CASSIOPEIDS",111
1 "SHOWER FOR SEPTEMBAR MONTH"
1 "SHOWER FOR OCTOBAR MONTH"
1 "SHOWER FOR NOVEMBAR MONTH"
1 "SHOWER FOR MAY MONTH"
1 "SHOWER FOR JUNE MONTH"
1 "SHOWER FOR JULY MONTH"
1 "SHOWER FOR JANUAR MONTH"
1 "SHOWER FOR DECEMBAR MONTH"
1 "SHOWER FOR AUGUST MONTH"
1 "SHOWER FOR APRIL MONTH"
1 "Repeat ?",a$:
1 "Red out.Green in.White Starlike"
1 "RPRT:";r$(n)
1 "ROK=";Y;:
1 "ROK ";Y,"MIESI
1 "QUADRANTIDS",282.83
1 "Press the key in the brackets for the desired command."
1 "Picture name :";n$
1 "PROVERBS"
1 "PRONOUN:- A word which takes the place of a noun. eg. ""her"",""himself"""
1 "PRESS ANY KEY TO RUN AGAIN"
1 "PREPOSITION:- A word showing the relation between things eg.""for"",""on"""
1 "POCT-3.3"
1 "POCT-3.2"
1 "POCT-3.1"
1 "POCT 3.4"
1 "PISCIS AUGSTRALIDS",127
1 "PISCIDS",165
1 "PISCIDS S",176
1 "PISCIDS N",172
1 "PERSEIDS",139.3
1 "Out of the frying pan into the","Sauce for the goose is sauce for the","Spare the rod and spoil the","The early bird catches the","Too many cooks spoil the"
1 "OSCAR 11 INFORMATION BOARD ",,,
1 "ORIONIDS",207.0
1 "OPHIUCHIDS",78
1 "ODL. OD S
1 "ODL. OD ZIEMI=";
1 "No. ON RIGHT DICE ?";L:
1 "No. ON LEFT DICE ?";M:
1 "No reproduction, copy or"
1 "Name of the file: ";a$
1 "NU GEMINIDS",110
1 "NOUN:- A naming word. eg. ""tiger"",""school"""
1 "Many hands make light","Don't put all your eggs in one","Where there is a will,there is a","Discretion is the better part of","Charity begins at"
1 "Manuscript ?(Y/N)";a$:
1 "Main Menu :":
1 "MNOZ.:";z$(n)
1 "METEOR SHOWER PEAK TIME PREDICT."
1 "MENU CHOICE ";CH5
1 "MENU 4. PROPAGATION PLOT"
1 "MENU 3. MISSION CONTROL"
1 "MENU 2. AZ EL TRACKING TABLE"
1 "MENU 1. SATELLITE POSITION MAP "
1 "MEANING OF:":
1 "LOCATE 1"
1 "LEONIDS",234.7
1 "LD(";f$;:
1 "LD(";f$;"+";:
1 "LAMBDA GEMNIDS",110
1 "LACERTIDS",100
1 "L"dlq wwoda banka
1 "L nutime A stop X nextorbit ";K$
1 "Key in lower case mode only,except for the following punctua-tion and procedure signals: "
1 "Kalender"
1 "JUNE LYRIDS",84.0
1 "JP";f$;")":
1 "It's a long lane that has no","In for a penny,in for a","As well be hanged for a sheep asa","More haste,less","Necessity is the mother of"
1 "ITOTA AQURIDS S",139
1 "IOTA AQURIDS N",152
1 "INPUT MONTH ";m
1 "INPUT ADRESS,REPEATS"
1 "He,who pays the piper,calls the","Pride goes before a","One man's meat is another man's","One swallow does not make a","Out of sight,out of"
1 "HEX input"
1 "Gewuenschtes Jahr: ";j
1 "Gewuenschter Tag: ";t
1 "Gewuenschter Monat:";m
1 "GLOSSARY ";
1 "GEMINIDS",261.2
1 "GAMADRACONIDS",86
1 "File ";a$''"S -
1 "FIFE SCOTLAND"
1 "Enter z to copy,d to change datar for a new problem ";
1 "Enter speed in wpm (max 25wpm recommended): ";s
1 "Enter s to run program with saved data,enter n for new data ";
1 "Enter new speed (max 25 wpm is recommended): ";s
1 "Enter Longitude in Deg, min, sec"'"Degrees ? ";LGD'"Minutes ? ";LGM'"Seconds ? ";LGS'"E or W ? ";
1 "Enter Locator ? ";
1 "Enter Latitude in Deg, min, sec"'"Degrees ? ";LTD'"Minutes ? ";LTM'"Seconds ? ";LTS'"N or S ? ";
1 "Empty vessels make most","Enough is as good as a","Every cloud has a silver","Every dog has its","Fair exchange is no"
1 "EXCLAMATION:- eg.""oh!"",""alas"""
1 "ENTER YEAR NUMBER EG. 85"
1 "ENTER YEAR NUMBER EG. 83"
1 "ENTER VOLUME(1-6) ";VO:
1 "ENTER START AZ EL TRACKING TIME UTC AS HHMM (in range times are different each successive day)"
1 "ENTER SELECTED CHOICE NUMBER"
1 "ENTER POSITION TIME , OR , START AZ EL TRACKING TIME UTC AS HHMM"
1 "Deletion Copyright is illegal"
1 "DO YOU WANT ANOTHER RUN (y-n) ";
1 "DELTA AQURIDS",125.0
1 "DELTA AQURIDS S",125
1 "DELTA AQUQRIDS N",140
1 "DEKLINACJA S
1 "Correct answer is: ";p$(1
1 "Copyright of J BRANEGAN"
1 "Chosen Selection ";CH6
1 "Chose sat for nuKepler data ";CH8
1 "CORRECT ANSWER:":
1 "CONJUNCTION:- A word used for joining.eg.""and"""
1 "CODE start,
1 "CASSIOPEIDS",226.98
1 "CAPRICONIDS",105
1 "C continue T nutime M menu ";K$
1 "BREAK",
1 "BETA TRIANGULIDS",111
1 "BETA PAURIDS",95
1 "BETA CAMCRIDS",110
1 "BACKUP consists of 3 programs:"
1 "All's well that ends","Better late than","Great minds think","He laughs longest who laughs","New brooms sweep"
1 "AT ";g;" GMT. THIS SHOWER LAST ";d$(n);" AND"
1 "ARIETIDS",75.0
1 "ARIETIDS S",186
1 "AR(End of mess.).a & CAPS SHIFT ? (Query)........c & SYMB SHIFT KN(To named stn.)k & CAPS SHIFT = (Break in text)l & SYNB SHIFT . (Period).......m & SYMB SHIFT , (Comma)........n & SYMB SHIFT / (Stroke).......v & SYMB SHIFT VA(End of QSO)...v & CAPS SHIFT
1 "ANDROMEDIDS",234
1 "ALPHA ORIOIDS",110
1 "ALPHA LEONIDS",308
1 "ALPHA CAPRICORNIDS",113
1 "ALPHA BETA PERSIDS",99
1 "ALPHA ARIETIDS",111
1 "ALPHA ARIETEIDS",139
1 "ADVERB:- A word which modifies a verb.eg.""quietly"", ""suddenly"""
1 "ADRESS ZAGRUZKI ";a
1 "ADJECTIVE:- A word which describes a noun or pronoun.eg.""red"""
1 "A:12345678"
1 "A bird in the hand is worth two in the","A cat may look at a","A miss is as good as a","A rolling stone gathers no","It's no use crying over spilt"
1 "A "
1 "??????",ss
1 "=slack(s)"
1 "=";a(i,l+1
1 ";S$;",";D$:
1 ";DE6;"'";DE7;"
1 ";" '";z$;"'?"
1 "9)OMICRONCETIDIS";
1 "9","BEEP","56611","10","
1 "8)NU PISCIDS";
1 "8","SAVE","56598","13","PROGRAM PRZEGRYWA BLOKI KODU;NA TA
1 "8 WHITEHILLS SALINE"
1 "7)HALLYIDS";
1 "7","LOAD","56584","14","PROGRAM
1 "6)PISCIDS";
1 "6","SIATKA","56425","159","PROGRAM WYPE
1 "54 PERSEIDS",94
1 "50","INK","43452","11","FUNKCJA
1 "5)ETA AQUARIDIS";
1 "5","EKRAN4","56327","98","PROGRAM WPISUJE 1/4
1 "49)URSIDS";
1 "49","PAPER","43464","17","FUNKCJA
1 "48)GEMINIDS";
1 "48","DRAW","43482","24","FUNKCJA
1 "47)ANDROMEDIDS";
1 "47","PLOT","43507","7","FUNKCJA
1 "46)LEONIDS";
1 "45)TAURIDS N";
1 "45","ERROR","43543","73","WYWO
1 "44)CASSIOPEIDS";
1 "44","KURSOR","43617","87","PROGRAM USTAWIA WIERSZ;W TRYB EDYCJI;ORAZ USTAWIA KURSOR;NA KO
1 "42","PRINT#9-50","43746","3072","PROCEDURA TA JEST UMIESZCZONA;POD ADRESEM 43746 ABY J
1 "41","LDIR","46819","12","PROGRAM PRZEPISUJE WYBRANY;BLOK PAMI
1 "40)ARIETIDS S";
1 "40","EFEKT3","46832","40","PROGRAM DEMONSTRUJE;CIEKAW
1 "4)APRIL LYRIDS";
1 "4";"CHCESZ WERYFIKOWA
1 "4","EKRAN3","56229","98","PROGRAM WPISUJE 1/4
1 "39","PAUSA","46873","8","WYWO
1 "38","2 BEEP","46882","63","PROGRAM POZWALA BUDOWA
1 "37)PISCIDS";
1 "37)PERCIDS";
1 "37","DZWI
1 "36)I. AQUARIDS N";
1 "35)D. AQUARIDS N";
1 "35","LITERY 2","47009","1200","PROGRAM UMO
1 "34)PERSEIDS";
1 "34","RAMKA 2","48209","766","PROGRAM DRUKUJE OZDOBN
1 "33)A. ARIETEIDS";
1 "33","ATTR OKNO","48976","29","PROGRAM ZMIENIA ATRYBUTY;W ZADANYM OKNIE;WYMIARY OKNA MO
1 "32385",115
1 "32350"+137
1 "32)I. AQURIDS S";
1 "32","CLS OKNO","48976","29","PROGRAM CZY
1 "31)P. AUGSTRALIDS";
1 "31","SCROL.OKD","59464","66","PRZESUWANIE ZAWARTO
1 "30)D. AQURIDS S";
1 "30","SCROL.OKG","59398","66","PRZESUWANIE ZAWARTO
1 "3)VIERGINIDS";
1 "3";N$;"
1 "3","EKRAN2","56131","98","PROGRAM WPISUJE 1/4
1 "29)DELTA AQUARIDS";
1 "29","DZWIEK 3","59366","32","WYBUCH","0"
1 "28)A. CAPRICORN.";
1 "28","DZWIEK 2","59342","24","LASER","0"
1 "27)SIG. CASSIOP.";
1 "27","DZWIEK 1","59311","31","IMITACJA KLAKSONU","0"
1 "26)ALPHA ARIETIDS";
1 "26","LITERY","59033","278","NIE RELOKOWA
1 "25)B. TRIANGULIDS";
1 "25","GATE LIT","58257","776","ZMIANA CZCIONKI LITER;ABY UZYSKA
1 "24)NU GEMINIDS";
1 "24","MEGA LIT","57481","776","ZMIANA CZCIONKI LITER;ABY UZYSKA
1 "24 VULPECULIDS",102
1 "23681",I:
1 "23658",F+F:
1 "23)ALPHA ORIONIDS";
1 "23","STARTTAPE","23736","1","PRZYK
1 "22)BETA CAMCRIDS";
1 "22","RAMKA","57404","78","PROGRAM DRUKUJE RAMK
1 "21)LAMB. GEMINIDS";
1 "21","EKRAN 2","57392","12","EFEKT PRZESUWANIA EKRANU;
1 "20)CAPRICORNIDS";
1 "20","EKRAN 1","57380","12","EFEKT PRZESUWANIA ATRYBUT
1 "2)ALPHA LEONIDS";
1 "2";H$(I):
1 "2";"START :
1 "2";"PROGRAM ZAJMUJE ";
1 "2";"NAZWA :";N$;" ";S$;",";D$;
1 "2";"LA=ADR-256*
1 "2","EKRAN1","56037","94","PROGRAM WPISUJE 1/4
1 "2"+" ","0"
1 "19)24 VULPECULIDS";
1 "19","SCROL DP","57311","69","PROGRAM PRZESUWA PO
1 "18)LECERTIDS";
1 "18","SCROL LD","57259","52","PROGRAM PRZESUWA DOLN
1 "17","SCROL GL","57193","66","PROGRAM PRZESUWA PO
1 "16","SCROL PG","57141","52","PROGRAM PRZESUWA G
1 "15","SCROL.1/4D","57014","127","PROGRAM WYSUWA ZNAJDUJ
1 "14)54 PERSEIDS";
1 "14","SCROL.1/4S","56887","127","PROGRAM WYSUWA ZNAJDUJ
1 "13)GAMADRACONIDS";
1 "13","SCROL.1/4G","56760","127","PROGRAM WYSUWA ZNAJDUJ
1 "12)JUNE LYRIDS";
1 "12","SCROL.P","56633","127","PROGRAM WYSUWA ZNAJDUJ
1 "11111111.1","22222222.2","33333333.3","44444444.4","55555555.5","66666666.6","77777777.8","88888888.8","99999999.9"
1 "11)OPHIUCHIDS";
1 "11","CLS","56627","6","PROGRAM CZY
1 "10)ARIETIDS";
1 "10","SCROLL","56621","6","PROGRAM PRZESUWA TRE
1 "1)QUADRANTIDS";
1 "1","2WIERSZE","56000","37","PROGRAM PRZESUWA DWA WIERSZE;EKRANU O JEDEN PUNKT (PIXEL);
1 "--------------------------------"
1 "-----------------------"
1 "----------------------"
1 ",y";j;"=x";j;
1 ",y";j;"=-x";j;
1 ",y";j;"-y";n+uu;"=x";j;
1 ","43705","40","PROGRAM PODAJE ILO
1 "++++++++++++"
1 "+(";g(i,j);")x";j;:
1 "+(";a(m+1
1 "+(";a(j,l+1
1 "+(";a(j,i);")z";j;:
1 "+(";a(i,j);")y";j;:
1 "(max/min): ";
1 "''"Valid for locators 36
1 "''"Enter lat & long"'"of home location:"'A$(
1 "''"Enter home locator :"
1 "''"Enter Lat & Long"''"Enter Lat & Long"'"of home location:"'A$(
1 "''"Enter Lat & Long"'"of home location:"'A$(
1 "''"Enter
1 "''"EUROPE (5-chr) system valid for 14
1 "'"ODL.ZIEMIA-S
1 "'"Enter home locator: "'
1 """locate"" ";
1 " sati:";H;" minute:";M
1 " mkII "
1 " k-Byte":
1 " Use U & ENTER to step backwards"
1 " Use S & ENTER to SAVE code"
1 " Use ENTER to step forward"
1 " To make a copy of a tape you must first load HEADER by the command LOAD """"CODE.Once it has loaded type
1 " The programs comprising BACKUP are copyright and unauthorised reproduction of any of them is prohibited. The author assumes no responsibility for errors, nor liability for damages as a result of the programs use."
1 " PODPROGRAM ZASTOSOWANY JEST W TYM PROGRAMIE":
1 " Note that BACKUP a will copy about 95% of all software and BACKUP b will rarely need to be used."
1 " ENTER 1,2
1 " ADRESS DATA NEW DATA":
1 " (degree symbol) with GRAPHICS-d key
1 " {v} > verify picture on disk"
1 " {s} > save picture to disk"
1 " {p} > edit picture"
1 " {l} > load picture from disk"
1 " {e} > exit program"
1 " {V} > verify UDG area on disk"
1 " {S} > save UDG area to disk"
1 " {L} > load UDG area from disk"
1 " TUNE INDICATOR + SPEED":
1 " Na dann, bis bald mal wieder."
1 " PLAY SNAKES AND LADDERS"
1 " ANY KEY= NEXT PAGE, P= PRINT"
1 " Input start adress program";W$:
1 " Input end adress program ";W$:
1 " Input name program ";N$:
1 " Philip Mitchell"
1 " MELBOURNE DRAW"
1 " Input start adress ";W$:
1 " Wochentagsbestimmung"
1 " Tag, Monat, Jahr"
1 " by"
1 !> PC 710C 21 07 EB 19 EB 19 EB
1 ! 7107 3D 710F 19 7117 FF
1 ! 7106 44 710E EB 7116 57
1 ! 7105 78 710D 07 7115 C9
1 ! 7104 46 710C 20 7114 01
1 ! 7103 19 710B 5A 7113 29
1 ! 7102 52 >710A B3< 7112 EB
1 ! 7101 ED 7109 C0 7111 19
1 ! 7100 AF 7108 37 7110 EB
1 ! SP D0AF 8A 70 06 03 0A 03 0D
1 ! IY CF6A 0D 11 0C 0F 09 18 18
1 ! IX D09F 04 03 04 00 00 00 1B
1 ! IR 0F7C ON
1 ! HL 2A1B DF FE 29 28 02 CF 02
1 ! DE 0000 F3 AF 11 FF FF C3 CB
1 ! BC 0004 FF C3 CB 11 2A 5D 5C
1 ! AF 0304 V
1 ! 710C 2007 JR NZ,#7115
1 ys=wysoko
1 y (z X1 Y1))
1 wwod zapisi <STOP>-wyhod
1 to see if you can recognise parts of speech
1 smena zapisi SHIFT-6 perehod w pole dannyh
1 qrz qrz qrz? de ua1auw ua1auw ua1auw kkkGV
1 or n (for no signconstraint); variable ";j;": ");
1 oformlenie blanka.dajte imenapolqm.ispolxzuj kursornye kl#@i.<STOP>-konec.<EDIT>-smena cwetow
1 name hr is mike es qth is st.petersburg = running abt 50watts to a dipole antenna H
1 nOMER :
1 message 9J"
1 message 8I
1 message 5F*
1 message 3Dh
1 message 2. dont forget to leave one space at the beginning of the message. AC
1 message 10. gl es 73 de ua1auw sks
1 l#bym kl#@om smestite kursor napole, kotoroe budet ozna@atx po-rqdok zapisi i navmite "ENTER"
1 komandx,nanesennxezelenxm cwetom,wxzxwa^ts` navatiem sootwetstwu^&ej klawi@i, a krasnxm - s odnowremennxm navatiem klawi@i 'SYMBOL SHIFT'":
1 klawi@i belxm cwetom"
1 ispol#zuets` dl` wxzowakomand, napisnnxh nad i pod kla-wi@ami krasnxm i zelenxm cwetom."
1 ispol#zuets` dl` wxzowagrafiyeskih simwolow,nanesennxh na klawi@i 1-8, a takve simwolowsozdannxh samim pol#zowatelem."
1 iSK(a)/zAM(y)/(j)?
1 help? ENTER h"
1 decode in area 36
1 da, STR.
1 cwet smena cweta polej. wybe-rite velaemyj cwetowoj nomer. esli wy ne velaete izmenqtx cwetpolq, to navmite "ENTER".
1 cwet wyberite nomer cweta (0-7) dlq okraski _krana i cwetabukw dlq dannogo polq dannyh :PAPER INK
1 cq cq cq de ua1auw ua1auw ua1auw cq cq cq de ua1auw ua1auw ua1auw cq cq cq de ua1auw ua1auw ua1auw kE
1 correct answer is no.";k
1 correct answer is no. ";k:
1 copyright 1983 UNIVERSITY SOFTWARE **
1 byte 9,10 -
1 byte 8 -
1 byte 15 -
1 byte 14 -
1 byte 13 -
1 byte 11,12 -
1 byte 0...7 -
1 blank pe@ati wwedite imena za-pisej dlq ih [email protected] stro-ki nive poslednego imeni budutpropu&eny. 'STOP' -wyhod.
1 ZX-SPECTRUM *
1 Z ! ZERO !
1 Y Z) a (x (y) Z))
1 X W KODZIE;MASZYNOWYM;
1 WILL MOVE THE <<< DOWN.
1 WIERSZY NA EKRANIE;
1 WELL DONE!
1 W;ODPOWIEDNI
1 W;DOWOLNE MIEJSCE;PAMI
1 V ! PARITY / OVERFLOW!
1 User Break$ Paper End $ Printer Off $ Continue$ Quit$(
1 UA1AUW 9006"
1 Then if data"
1 Text: (ENTER)
1 TX FILE
1 TR-DOS 'SAVE "
1 TR-DOS "CAT".
1 TO SAVE THE NEW VERSION OF THE PROGRAM, OR ANY OTHER KEYTO CONTINUE.!
1 TO COPY THIS PAGE ONTO YOUR PRINTER OR ANY KEY TO CONT.
1 TO ADJUST THE POSITION UNTIL THE ARROW <<< IS ALONGSIDE.
1 TASWORD-R
1 T EDITOR'
1 T
1 Select Option >
1 SUBROUTINE TO CALCULATE ECLIPTIC LONGITUDES
1 SAVE & VERIFY
1 SAVE "MONS4" CODE NNNN,6656
1 SAT PODESAVANJE
1 S ! SIGN !
1 ROBOTRON 1152
1 READER v1.0
1 RAM TOP (ADR);
1 Printer: Y
1 Print
1 Please note Equatorial Shuttle
1 PRZESUWANEGO EKRANU;
1 PROGRAM:
1 PROGRAM NALE
1 PODPROGRAM;NALE
1 POD;WSKAZANY ADRES"
1 OPUS DISC.
1 OPEN 2,"P"),
1 OKNA NIE ULEGNIE;ZMIANIE","0"
1 NOW today's date (in any form)
1 NORMAL VIDEO"
1 NORMAL FILTER"
1 NA TEMAT;DANEGO PODPROGRAMU;KLAWISZ (D) :;DEMONSTRACJA;KLAWISZ (S) :;PRZEGRANIE NA TA
1 N ! ADD / SUBSTRACT !
1 Macmillan Education
1 MY NAME:
1 MOVES <<< UP
1 MOVES <<< DOWN
1 MINICOM SOFT
1 M:892D W (ENTER)
1 M - MEMORY -
1 Learn to Read 3
1 Last: (ENTER)
1 LOAD/VERIFY:
1 LOAD/VERIFY
1 LOAD ZX CODE
1 LEARN TO READ 5
1 KEYS CAN BE USED.
1 KEY WILL MOVE THE <<< UP.
1 KEY 1 TO 3";
1 KACCET:";
1 K=K/[IFT S=S/[IFT E=K/[+S/[ e=E+S/[IFT
1 K KPSE K PSE K
1 HOMEPOB KACCET"'"X=
1 HOMEP KAC.
1 HOMEP =";c;
1 HIT THE BELL
1 H ! HALF-CARRY !
1 GM4IHJ Jan 84
1 GET REPLAY
1 G - GET PATTERN -
1 First: 95 (ENTER)
1 First: 8B (ENTER)
1 First: (ENTER)
1 FUNKCJI AT i TAB"+
1 FF, 0-40
1 EUROPE (5-chr) locators
1 EKRANU;DO G
1 DNIA ";CS1; "
1 DISCIPLE DISC SYSTEM,
1 DANY;PRZYK
1 Correct answer is no. ";k
1 CAPS SHIFT + SYMBOL SHIFT"''"
1 CAPS SHIFT + 9 (GRAPHICS)"
1 CAPS SHIFT + 2 (CAPS LOCK)"''"
1 CALL #8800
1 C ! CARRY !
1 BYTES:
1 BY FISHER-MARRIOTT
1 BETA-DISK.
1 BEPHA (Y/N) ?
1 AT THE FAIR
1 ADDR NAME
1 A=170 B=425 C=850
1 A.Cowley 1982
1 A O,S,F .
1 ? (T/N)":
1 9
1 8
1 7000-77FF
1 7 EDIT
1 6
1 23802...2380
1 23752...23755,
1 23624 .
1 23
1 22
1 21
1 20
1 1985XALL RIGHTS RESERVED
1 1985
1 1983 Crystal Computing
1 19
1 18
1 17
1 16
1 15635 (#3D13).
1 13 ENTER
1 12 DELETE
1 11
1 10
1 1 2 3 4 5":
1 01.09.1989
1 009E A4 DEFB #A4
1 009B 4B 45 59 DEFB "K","E","Y"
1 0098 C4 49 4E DEFB #C4,"I","N"
1 0095 BF 52 4E DEFB #BF,"R","N"
1 0094 C9 RET
1 0091 22 5D 5C LD (#5C5D),HL
1 0090 37 SCF
1 008F 23 INC HL
1 008D 38 01 JR C,L0090
1 008B FE 16 CP #16
1 - Marek Brzozowski 1983"
1 *LOCATOR DECODE*
1 * WELL DONE *
1 (X) USTALA ZAKRES;PRZESUWANIA
1 (MONS+GENS)
1 (I)-Inf. ENTER":
1 (GENS,MONS,PASCAL)
1 (Error)........0 & CAPS SHIFT Change speed.....z & CAPS SHIFT Send message...0-9 & SYMB SHIFT End mess. early..x & CAPS SHIFT (Store mess. in lines 1000-1009)"
1 (+, +2, +3
1 #C000 (49152):
1 "boot <B>").
1 "RANDOMIZE USR
1 "PISCIDS",46
1 "OMICRONCETIDS",59
1 "NU PISCIDS",47
1 "HALLYIDS",46.5
1 "ETA AQURIDS",44.0
1 "APRIL LTRIDS",31.4
1 ";DE6;"' ";DE7;"
1 ""PARTS OF SPEECH"""
1 tel. 25-35-34
1 ster"STR"? D
1 moskwa * 1989
1 VIEW
1 UDGs ONLY
1 UDGs + SCREEN$>
1 TASWORD-R
1 Spark2.0
1 STRING MACHINE
1 SINCLAIR ZX +3
1 SCREEN$ ONLY
1 SCREEN MACHINE TWO
1 SCREEN MACHINE ONE
1 SAVE
1 Parts of speech (continued)
1 MACRO BUFFER NNNN [ENTER]
1 MACRO BUFFER
1 M: 7FB0
1 Leningrad 1990"
1 INTEL -
1 INPUT subroutines for Latitude and Longitude
1 INCLUDE BUFFER NNNN [ENTER]
1 INCLUDE BUFFER -
1 GENS4
1 FF (ENTER) -
1 F2 (ENTER) #F2 -> (
1 E2A7.
1 ASCII)
1 8CO #8C -> (
1 7080. PC=7080
1 4480 (!!!)
1 2A5D #5D -> (
1 23802...23805
1 23296 and play the tape which you want to copy through."
1 123 (CAPS SHIFT) #23 -> (
1 0EM:E00 #0E -> (
1 -->9800 21 FF FF LD HL,-1
1 ---9001 CZ 00 98 CALL NZ,#9800
1 * **** ** * * * * ***
1 * * * * * * * *
1 * * * * * * * * *
1 * * * *** *** ***
1 * * * * * * * * *
1 * * * * * * * *
1 *
1 (vartrans x y1))
1 (vartrans x y)
1 (vartrans Z ((X|x)|y)))
1 (vartrans Y x)
1 (vartrans Y Z)
1 (vartrans X Y)
1 (vartrans ((X
1 (sub y Z (Y|x)))
1 (sub Y Z y))
1 (sub X Z x)
1 (shrink Z y)
1 (shrink Z x))
1 (shift-r ((Z|X) (Y) x) Z1 (z X1 Y1)))
1 (shift-l (Y (Z) (X|x)) Z1 (z X1 Y1)))
1 (respond x Y))
1 (listvars Y x))
1 (listvars
1 (listp X Z))
1 (bind Z y Z1 () x1)
1 (bind Y X1 x Y1 z))
1 (bind X Z X1 y Y1)
1 (Zip Y x X1 z))
1 (X-parse X Z y X1)
1 (Update-p X Y X1 z y))
1 (Update-p X Y ((X1|Y1)|Z1) z y))
1 (UpC X Y)
1 (SUM y 1 Z1)
1 (SUM x1 1 y)
1 (SUM Y x X1)
1 (SUM Y X1 Y1)
1 (SUM X1 1 x)
1 (SUM X1 1 Y1)
1 (SUM 1 z X)
1 (SUM 1 Z1 y)
1 (SUM 1 Z X)
1 (SUM 1 Y x)
1 (SUM 1 Y Z1)
1 (Rev-list X y x))
1 (RFILL (Y) x))
1 (RFILL ((Z|x)) X1)
1 (Prompt (Z) x)
1 (Prompt (Where ?) Z1)
1 (Prompt (Put clause Z in relation y "?(yes/no) ") Y1)
1 (Prompt ("[" Y "]" Z) x)
1 (PP trying Y)
1 (PP Start tape for recording)
1 (PP Saving module Y in file X)
1 (PP Hit EN
1 (PP EDIT of X finished)
1 (P-code X Z)
1 (P Error X Z)
1 (P "error&(? for info)")
1 (OR ((CL ((X|Y)|Z) 1 1) (vartrans x ((X|Y)|Z)) (Edit-P X 1 x)) ((Edit-P X 0 "No clause"))))
1 (ON X Z x))
1 (ON (Z X) Y EQ)
1 (OFF),
1 (NextC X Y))
1 (NOT VAR X)
1 (NOT ON X x samevar)
1 (NOT EQ Z "No clause")
1 (NOT CL ((X|z) (/* vars|X1)|Y1) Y Y)
1 (NOT ? ((EQ Z "No clause") (LESS 0 Y)))
1 (NOT ? ((EQ X a) (EQ Y b))))
1 (LISTP X Y)
1 (LESS 0 X)
1 (LESS -1 Y))
1 (Insert-in-P Y x y))
1 (INT Z1)
1 (IF (LESS z 0) ((SHIFT-L X Y Z z x y)) ((LESS 0 z) (SHIFT-R X Y Z z x y))))
1 (IF (LESS Z 0) ((shift-l X Z Y)) ((LESS 0 Z) (shift-r X Z Y))))
1 (IF (LESS Y1 0) ((EQ x1 0)) ((EQ
1 (IF (EQ y "No clause")
1 (IF (EQ X "No clause") ((EQ Y Z)) ((SUM Y 1 Z))))
1 (Goto-P X y z))
1 (Goto-P X Y y)
1 (Goto-P X Y x))
1 (Front-C z x y X1))
1 (Front-C z Z x y
1 (FIND X Y1 y z))
1 (Edit-term y x))
1 (Edit-term x Y))
1 (Edit-term X Y))
1 (Edit-term (() (Z) x) ((X1|Y1)|Z1))
1 (Edit-in-C X Z x)
1 (Edit-P X y z))
1 (Edit-P X Y Z))
1 (EdP X Y Z x))
1 (EdC X Y x))
1 (EQ y1 ((X|z) (/* vars|x1)|Y1))
1 (EQ y (Y x)))
1 (EQ y ((X|z)|X1))
1 (EQ y ((X|z)|X1)
1 (EQ Z ((y|z)|X1))
1 (EQ Z ((X|z)|Y1))
1 (EQ Y1 yes)
1 (EQ X Y)
1 (ENTER).
1 (ENTER),
1 (E-in-P X Y Z x y z)
1 (DownC Y y)
1 (DisplayC X Z)
1 (Delete-in-C X Y))
1 (DELCL X Z1)
1 (DELCL ((Module Y Z x)))
1 (D-C X Y Z))
1 (CON Y))
1 (CL ((X|x)|y) Y Y)
1 (CL ((X|x) (/* vars|z)|y) Y Y)
1 (BackC X Y))
1 (Append-in-P Z Y x y))
1 (Append-in-P Z Y x Z))
1 (App-C y ((vars|z)) X)
1 (App-C Z x y))
1 (App-C Y Z y))
1 (App-C Y Z y)
1 (App-C Y Z x))
1 (App-C Y Z X1)
1 (App-C Y Z (x|y)))
1 (App-C Y X y))
1 (App-C Y X x))
1 (App-C (Y|x) ((vars|y)) X))
1 (APPEND x (y)
1 (ADDCL y1 Y)
1 (ADDCL x Z))
1 (ADDCL Z x1)
1 (ADDCL Z Z1)
1 (ADDCL Z X1)
1 (ADDCL Z 0))
1 (ADDCL Y 0))
1 (ADDCL ((
1 $Z (SINGLE
1 $Z
1 #20-#7F,
1 "SPACE"
1 "SCROLL ?"),
1 ! ...........................
1 on , under , top , bottom , qn front, behqnd , qnsqde , outsqde ,FP
1 mETKA:kODY UPRAWLENIQ
1 bit7-1
1 bit7-0
1 bit1-1
1 bit0-0
1 ZEUS Z80 ASSEMBLER
1 W (Set a
1 TO: 9E00
1 T N,M,S -
1 SPECTRUM
1 SET 0,(IY+2) ;
1 RES 0,(IY+2) ;
1 RANDOMIZE USR NNNN [ENTER]
1 ORG.
1 ON , UNDER , TOP , BOTTOM , QN FRONT, BEHQND , QNSQDE , OUTSQDE ,
1 O,,S -
1 NSUB MAC -
1 NNN -
1 Last: B000
1 LOAD/VERIFY.
1 LD A,2 ;
1 LD A,17 ;
1 LD A,15
1 LD A,XXX ;XXX
1 JP(IX+N)
1 JANUSZ GAJDECKI
1 EX AF,AF'
1 DISCOD.
1 CQ DE UA3CR 13 AND 14 FEB EXPERIMENT DIGITALKER ON FQ 144125 SSB AND FM PSE RPRT BACK TO ME AS SOON AS POSSIBLE ........ MNI TKS....MMMM.... RYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRY......DE DE UA3CR.....................DE UA3CR ...............DE UA3CR UA3CR.............RYRYRYRYRYRYRYRYRYR
1 CKOPOCT
1 CALL 1378
1 CALL 1366
1 CALL 1218
1 AUTO NEW LIST MAN CLR DATA GET PUT RX ENTER-LIST D-DATA BREAK-EXIT ^-NEW PAGE EDIT-TX STOP-EXIT ENTER-LIST EDIT-TX BREAK-EXIT PRESS ANY KEY BREAK-EXIT ENTER NEW DATA BREAK-EXIT ANALYSE RX LIST CLR GET PUT TX
1 ASCII -
1 <Q/A> - Up/Down, 0 - Exit$*|
1 892D 20 03... JR NZ,...
1 892A CD 00 88 CALL #8800
1 8927 11 14 88 LD DE,#8814
1 8926 7E LD A,(HL)
1 8923 2A 00 80 LD HL,(#8000)
1 8920 CD 00 90 CALL #9000
1 891E 3E FF LD A,-1
1 6689
1 254.
1 23560
1 20 07 EB 19 EB 19 EB
1 123.
1 0=... B
1 --------------------------
1 (NZ),
1 $K CONTINUE EXECUTION
1 "BREAK".
1 "BREAK"
1 ! ! ! ! ! ! !
1 Z80
1 Workspace? NNNN (ENTER)
1 V RETURN TO INDIRECTION
1 SCAN EQU 12AF
1 RST 16
1 RANDOMIZE USR 55000 (ENTER)
1 RANDOMIZE USR 28000 [ENTER]
1 NSUB MAC
1 NAME:
1 N (ENTER),
1 MOVE START,START+1,LENGTH
1 MOVE MAC
1 MOVE 16384,16385,4096
1 Last: AFBF (ENTER)
1 LOAD "" CODE 49152 (ENTER)
1 LOAD "" CODE 28000 [ENTER]
1 LOAD "" CODE (ENTER)
1 LD IX,
1 LD HL,=0 HL=
1 LD DE,=1 DE=
1 LD DE,
1 LD BC,=2 BC=
1 LD A,65
1 JR NZ)
1 I INTELLIGENT COPY
1 GENS4-51
1 GENS4
1 First: AF0F (ENTER)
1 ENT S (
1 ENDM
1 EDITOR'
1 DATE:
1 CALL 1222
1 C.
1 C BREAK CONT-REPEATS,
1 C BREAK - CONT REPEATS,
1 BAD ORG ! -
1 > 710A B3 < -
1 4+5*3-8
1 0.
1 ........................
1 *F 2:TEST
1 *F TEST
1 (EDIT)
1 ZILOG. GENS4
1 Text: 2: DISCOD (ENTER)
1 SPECTRUM
1 SINCLAIR,
1 SAVE "DISAS" NNNN,MMMM
1 RST 8
1 R
1 OUT (241),A
1 O RELATIVE OFFSET
1 NNNN MONS4
1 LD BC,32766 ;
1 LD A,0 ;
1 LD (23560),A ;
1 JR Z,WAIT
1 JR Z,LOOP
1 JR NZ,WAIT
1 JR NZ,LOOP ;
1 JR NC,BREAK
1 J - wyrawnqtx stroku ZH PRINTER N - svatx stroku
1 J JUMP TO ADDRESS
1 IN A,(242)
1 DEFB 20 "L BREAK IN TO PRO
1 D4
1 CP 0 ;(
1 BIT 7,A
1 BIT 0,A ;
1 BIT 0 ,A
1 9000 B7 OR A
1 5.2.
1 32767,
1 .($M),
1 (IX,IY,HL,DE,BC,AF,PC).
1 (51 -
1 "STRING".
1 "HEX input"
1 bit 6-
1 bit 4-
1 bit 3-
1 bit 2-
1 bit 1
1 bit 0
1 X GOTO INDIRECTION
1 U BACK TO OFFSET
1 SUB 165
1 SINCLAIR ZX SPECTRUM
1 Q FLIP REGISTERS
1 PROGRAM BY MINICOM SOFTWARE
1 PRESS ANY KEY BREAK-EXIT
1 LD A,13
1 LD A,10
1 LD A,(LENGTH)
1 LD (COUNT),A
1 JR Z,ENTER
1 JR NZ,FORW2
1 JR C,FORW4
1 JP 3088
1 H CONVERT TO HEX
1 FL.BR. PAPER INK
1 DRQ
1 DEC (HL)
1 CALL PRINT
1 23693.
1 23659.
1 ---------------------
1 (SYMBOL SHIFT) 3=$3
1 (AF',HL',DE',BC')
1 "--------------------------"
1 "------------------------"
1 "-----------------------"
1 "--------------------"
1 W SET A BREAKPOINT
1 T DISASSEMBLE
1 P FILL MEMORY
1 N NEXT PATTERN
1 LD HL,COUNT
1 L LIST MEMORY
1 3.
1 (LOCATION COUNTER)
1 (ENTER) -
1 $P PRINT LIST
1 START EQU 0
1 SINCLAIR 48/128K
1 SECOND EQU 12
1 MINUTES EQU 30
1 LD DE,START
1 HOURS EQU 2
1 HMS HOURS,MINUTES,SECOND
1 End of text NNNN
1 ADD HL,DE ;HL GIVES THE
1 A P I N A
1 A O,S,FILENAME
1 7 6 5 4 3 2 1 0
1 6-LEFT 7-RIGHT 0-EXIT ENTER-LIST SLOW 0-EXIT COPY MEMORY FULL! PRESS ANY KEY
1 1800-
1 ----------------
1 (SYMBOL SHIFT) L
1 (SYMBOL SHIFT) 3
1 (STOP) ,
1 $Z SINGLE-STEP
1 $T SKIP CALL
1 Y ENTER ASCII
1 LD HL,SCAN
1 EDITOR HISOFT
1 BAD MEMORY !
1 / !
1 #19 40
1 #18 80
1 #17 40
1 #16 80
1 READ/VERIFY
1 A,,FILENAME
1 >> MINICOM SOFTWARE <<
1 > PC 710C
1 *ERROR* 4.
1 ! ! !
1 STEPPING).
1 S-LABEL+8
1 RATCOPY'89
1 MONS4
1 LIGHT PEN
1 LD HL,=0*3600
1 LD DE,=2
1 LD DE,=1*60
1 HMS MAC
1 ENDM
1 CALL 3435,
1 BEEPER
1 ANS Soft.
1 >
1 "Y"-";"+7
1 ORG B000
1 ORG
1 LD HL,$+5 ;
1 ANS Soft
1 20.09.90
1 13.12.89
1 -------
1 *ERROR*
1 TWO!5
1 SBC HL,DE
1 OR A
1 GENS 4
1 ENDM
1 ADD HL,DE
1 -----
1 LOOP
1 LDIR
1 L(1)
1 GRAM"
1 ;
1 ----
1 (
1 ! 7128
1 ! 7115
1 !
1 !
1 12
1 (
1 = #8000
1 1-MFM);
1 Z80
1 FINISH
1 PING (RET)
1 PING (LD HL)
1 PING (LD DE)
1 PING (LD A,H
1 #8C
1 ;LOADING HL
1 1
1 ;SECTION 1
1 SECTION 2
1 HL=LC+5
1 [ENTER]
1 t
1 SE K
1
1
1
1